diff options
Diffstat (limited to 'tests/expand.test')
-rw-r--r-- | tests/expand.test | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/expand.test b/tests/expand.test new file mode 100644 index 0000000..2c7023a --- /dev/null +++ b/tests/expand.test @@ -0,0 +1,27 @@ +source [file dirname [info script]]/testing.tcl + +test expand-1.1 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a {*}$b +} {1 2 3 4 5 6} + +test expand-1.2 "Basic tests" jim { + set a {1 2 3} + set b {4 5 6} + lappend a {expand}$b +} {1 2 3 4 5 6} + +test expand-1.3 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a *$b +} {1 2 3 {*4 5 6}} + +test expand-1.4 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a expand$b +} {1 2 3 {expand4 5 6}} + +testreport |