diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-16 10:03:34 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:54 +1000 |
commit | 20a92713543de2514230010b008065b5c1bd8b8c (patch) | |
tree | 92f62f85fb3bfd4aeb2af9de47e082f126926880 /tests/string.test | |
parent | b4a77b8c3c18870009b5a2c193a1772552b5e4b5 (diff) | |
download | jimtcl-20a92713543de2514230010b008065b5c1bd8b8c.zip jimtcl-20a92713543de2514230010b008065b5c1bd8b8c.tar.gz jimtcl-20a92713543de2514230010b008065b5c1bd8b8c.tar.bz2 |
Move test.tcl to tests/jim.test
And other small testing improvements
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/string.test b/tests/string.test index 3336d7d..782d7bf 100644 --- a/tests/string.test +++ b/tests/string.test @@ -447,9 +447,9 @@ test string-10.7 {string map} { test string-10.8 {string map -nocase} { string map -nocase {aBc 321 Ab * a A} aabcabaababcab } {A321*A*321*} -#test string-10.9 {string map -nocase} { -# string map -no {abc 321 Ab * a A} aAbCaBaAbAbcAb -#} {A321*A*321*} +test string-10.9 {string map -nocase} { + string map -no {abc 321 Ab * a A} aAbCaBaAbAbcAb +} {A321*A*321*} test string-10.10 {string map} { list [catch {string map {a b c} abba} msg] } {1} |