diff options
author | Steve Bennett <steveb@workware.net.au> | 2009-07-28 15:53:00 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 10:11:02 +1000 |
commit | c44ee8b464189b01cd28a7609e7f21777a73644c (patch) | |
tree | 19ee42b183277e046b6a720172e9bcc2ce99e5da /tcltests/test_lsort_cmd.tcl | |
parent | 1692f3e4c3f8460446e8a21bc7c06b150c3c6aaa (diff) | |
download | jimtcl-c44ee8b464189b01cd28a7609e7f21777a73644c.zip jimtcl-c44ee8b464189b01cd28a7609e7f21777a73644c.tar.gz jimtcl-c44ee8b464189b01cd28a7609e7f21777a73644c.tar.bz2 |
Add some tests from tinytcl
Diffstat (limited to 'tcltests/test_lsort_cmd.tcl')
-rw-r--r-- | tcltests/test_lsort_cmd.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tcltests/test_lsort_cmd.tcl b/tcltests/test_lsort_cmd.tcl new file mode 100644 index 0000000..cf20ed7 --- /dev/null +++ b/tcltests/test_lsort_cmd.tcl @@ -0,0 +1,16 @@ +set list {b d a c z} + +proc sorter {a v1 v2} { + set ::arg $a + return [string compare $v1 $v2] +} + +proc test_lsort_cmd {test cmd list exp} { + lsort -command $cmd $list + if {$::arg != $exp} { + error "$test: Failed" + } +} +test_lsort_cmd lsort.cmd.1 "sorter arg1" $list "arg1" +test_lsort_cmd lsort.cmd.2 {sorter "arg with space"} $list "arg with space" +test_lsort_cmd lsort.cmd.3 [list sorter [list arg with list "last with spaces"]] $list [list arg with list "last with spaces"] |