diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 12:52:47 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:44 +1000 |
commit | 9c0de20e4bc701bb92a2512a6db6f9e41b6d045e (patch) | |
tree | 1bf67f66c67078cd6c987b3b08ef49a99af26784 /tests | |
parent | b33cf7f87ff295726c4a9e86b74217bcb64dbf78 (diff) | |
download | jimtcl-9c0de20e4bc701bb92a2512a6db6f9e41b6d045e.zip jimtcl-9c0de20e4bc701bb92a2512a6db6f9e41b6d045e.tar.gz jimtcl-9c0de20e4bc701bb92a2512a6db6f9e41b6d045e.tar.bz2 |
Bug fixes and features
Support end+<n> index
And generally simplify the index handling
Add support for 'info nameofexecutable'
Diffstat (limited to 'tests')
-rw-r--r-- | tests/misc.test | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/tests/misc.test b/tests/misc.test index 7f70bc3..3fffbf3 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -153,21 +153,21 @@ test lindex-1.7 "end" { lindex {a b c} end-4 } {} -test lindex-1.8 "end - errors" { - catch {lindex {a b c} end-} -} 1 +test lindex-1.8 "end + " { + lindex {a b c} end+1 +} {} -test lindex-1.9 "end - errors" { - catch {lindex {a b c} end-blah} -} 1 +test lindex-1.9 "end + " { + lindex {a b c} end+-1 +} b test lindex-1.10 "end - errors" { - catch {lindex {a b c} end+1} + catch {lindex {a b c} end-} } 1 -test lindex-1.11 "int+int, int-int" { - lindex {a b c} 0+1 -} b +test lindex-1.11 "end - errors" { + catch {lindex {a b c} end-blah} +} 1 test lindex-1.12 "int+int, int-int" { lindex {a b c} 0+4 @@ -186,9 +186,9 @@ test lindex-1.15 "int+int, int-int" { lindex $l [lsearch $l b]-1 } a -test lindex-1.16 "int+int - errors" { - catch {lindex {a b c} 5+blah} -} 1 +test lindex-1.16 "int+int, int-int" { + lindex {a b c} 0+1 +} b test lindex-1.17 "int+int - errors" { catch {lindex {a b c} 5-blah} @@ -198,7 +198,11 @@ test lindex-1.18 "int+int - errors" { catch {lindex {a b c} blah-2} } 1 -test lindex-1.19 "unary plus" { +test lindex-1.19 "int+int - errors" { + catch {lindex {a b c} 5+blah} +} 1 + +test lindex-1.20 "unary plus" { lindex {a b c} +2 } c |