diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-12-20 08:58:50 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2020-12-26 18:08:29 +1000 |
| commit | 058a5ef8474fb62f711d53e2fc8e2fa68fbb8996 (patch) | |
| tree | 4b36cb4c1c12451a4d716b555c21437caffcd487 /tests/regexp2.test | |
| parent | 3627155c4a047bc491d45406b22a9038402ae964 (diff) | |
| download | jimtcl-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/regexp2.test')
| -rw-r--r-- | tests/regexp2.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/regexp2.test b/tests/regexp2.test index 936224d..9b6cdcf 100644 --- a/tests/regexp2.test +++ b/tests/regexp2.test @@ -287,7 +287,7 @@ test regexpComp-6.9 {regexp errors, -start bad int check} { evalInProc { list [catch {regexp -start bogus {^$} {}} msg] $msg } -} {1 {bad index "bogus": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "bogus": must be intexpr or end?[+-]intexpr?}} test regexpComp-7.1 {basic regsub operation} { evalInProc { @@ -545,7 +545,7 @@ test regexpComp-11.8 {regsub errors, -start bad int check} { evalInProc { list [catch {regsub -start bogus pattern string rep var} msg] $msg } -} {1 {bad index "bogus": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "bogus": must be intexpr or end?[+-]intexpr?}} # This test crashes on the Mac unless you increase the Stack Space to about 1 # Meg. This is probably bigger than most users want... |