aboutsummaryrefslogtreecommitdiff
path: root/tests/string.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2020-12-20 08:58:50 +1000
committerSteve Bennett <steveb@workware.net.au>2020-12-26 18:08:29 +1000
commit058a5ef8474fb62f711d53e2fc8e2fa68fbb8996 (patch)
tree4b36cb4c1c12451a4d716b555c21437caffcd487 /tests/string.test
parent3627155c4a047bc491d45406b22a9038402ae964 (diff)
downloadjimtcl-058a5ef8474fb62f711d53e2fc8e2fa68fbb8996.zip
jimtcl-058a5ef8474fb62f711d53e2fc8e2fa68fbb8996.tar.gz
jimtcl-058a5ef8474fb62f711d53e2fc8e2fa68fbb8996.tar.bz2
core: commands that take an index now use integer expressions
This means that instead of just [list index 2+1], we can now do [list index end-$n*2+1] This applies to: lindex, linsert, lreplace, lset, lrange, lsort, regexp, regsub string index,first,last,range Also add tests for both direct integer expressions and indexes. Still needs doc update. Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/string.test b/tests/string.test
index 3624565..086e470 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -837,10 +837,10 @@ test string-14.12 {string replace} {
} {}
test string-14.13 {string replace} {
list [catch {string replace abc abc 1} msg] $msg
-} {1 {bad index "abc": must be integer?[+-]integer? or end?[+-]integer?}}
+} {1 {bad index "abc": must be intexpr or end?[+-]intexpr?}}
test string-14.14 {string replace} {
list [catch {string replace abc 1 eof} msg] $msg
-} {1 {bad index "eof": must be integer?[+-]integer? or end?[+-]integer?}}
+} {1 {bad index "eof": must be intexpr or end?[+-]intexpr?}}
test string-14.15 {string replace} {
string replace abcdefghijklmnop end-10 end-2 NEW
} {abcdeNEWop}
@@ -1029,6 +1029,6 @@ test string-24.12 {string byterange, full range} {
} abcdef
test string-24.13 {string byterange, invalid range} -body {
string byterange abcdef foo bar
-} -returnCodes error -result {bad index "foo": must be integer?[+-]integer? or end?[+-]integer?}
+} -returnCodes error -result {bad index "foo": must be intexpr or end?[+-]intexpr?}
testreport