aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-01-24 12:52:47 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:02:44 +1000
commit9c0de20e4bc701bb92a2512a6db6f9e41b6d045e (patch)
tree1bf67f66c67078cd6c987b3b08ef49a99af26784 /tests
parentb33cf7f87ff295726c4a9e86b74217bcb64dbf78 (diff)
downloadjimtcl-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.test32
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