diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 12:03:40 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:44 +1000 |
commit | a17425e476861fde1e1ad824181f97e081740659 (patch) | |
tree | fce3d80fb5c271dddf1ab005ecdfd039ec52ebb4 /tests/expand.test | |
parent | b9835f11e31b7e021da6b0831eac659425735ba2 (diff) | |
download | jimtcl-a17425e476861fde1e1ad824181f97e081740659.zip jimtcl-a17425e476861fde1e1ad824181f97e081740659.tar.gz jimtcl-a17425e476861fde1e1ad824181f97e081740659.tar.bz2 |
New features, docs
Implement lsearch in C with options
*: lsearch -exact, -glob, -regexp, -not, -bool, -all, -inline
Add tests for lsearch and expand
expr operators: in and ni (Tcl 8.6)
Diffstat (limited to 'tests/expand.test')
-rw-r--r-- | tests/expand.test | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/expand.test b/tests/expand.test new file mode 100644 index 0000000..1527cd9 --- /dev/null +++ b/tests/expand.test @@ -0,0 +1,29 @@ +source testing.tcl + +section "Expand Testing" + +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" { + 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 |