diff options
| author | Steve Bennett <steveb@workware.net.au> | 2026-04-06 16:50:47 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2026-04-09 14:29:03 +1000 |
| commit | ce400300d23af84f13d296fe3c5b33be883568fe (patch) | |
| tree | c26084986ea98d2d76bf653411f7a6063ff1686a /tests | |
| parent | 24045088576e147c6aecb23f6babce13f2f75f19 (diff) | |
| download | jimtcl-master.tar.gz jimtcl-master.tar.bz2 jimtcl-master.zip | |
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/format.test | 3 | ||||
| -rw-r--r-- | tests/lreplace.test | 3 | ||||
| -rw-r--r-- | tests/string.test | 3 |
3 files changed, 9 insertions, 0 deletions
diff --git a/tests/format.test b/tests/format.test index 8934cef..47168a0 100644 --- a/tests/format.test +++ b/tests/format.test @@ -274,6 +274,9 @@ test format-7.2 {various syntax features} { test format-7.3 {various syntax features} { format "\*\t\\n" } {* \n} +test format-7.4 {integer overflow} { + format %.40000000000000000000s 0 +} 0 test format-8.1 {error conditions} { catch format diff --git a/tests/lreplace.test b/tests/lreplace.test index 03ba859..05811f5 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -195,6 +195,9 @@ test lreplace-4.13 {lreplace empty list} { test lreplace-4.14 {lreplace empty list} { lreplace {} 2 2 2 } 2 +test lreplace-4.15 {lreplace integer overflow} -body { + lreplace {} 3000000001 3000000000 +} -returnCodes error -result {bad index "3000000001": must be intexpr or end?[+-]intexpr?} test lreplace-5.1 {compiled lreplace: Bug 47ac84309b} { apply {x { diff --git a/tests/string.test b/tests/string.test index 086e470..9a13f8c 100644 --- a/tests/string.test +++ b/tests/string.test @@ -193,6 +193,9 @@ test string-4.18 {string first, negative index} { test string-4.19 {string first, not found} { string first a bcd } -1 +test string-4.20 {string first, out of range} { + string first abc abc 1000000 +} -1 test string-5.1 {string index} { list [catch {string index} msg] |