diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-01 12:16:44 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-01 12:16:44 (GMT) |
commit | fe84f70800dcb3534a5b8573dac6575d45db4c7c (patch) | |
tree | 0c54138f668c18544b6c01e0adde7406d4283f9e /tests | |
parent | c77055a8032f0f7de05c76f7bfe1059b75618ea5 (diff) | |
download | tcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.zip tcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.tar.gz tcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.tar.bz2 |
Tests for [ad9361fd20]
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bigdata.test | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index a28a4cb..d7f3224 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -353,8 +353,18 @@ bigtestRO string-range-bigdata-1 "string range" {6 7 5 {} 5 4 {} 9 {}} -body { set s [bigString 0x10000000a] } -cleanup { bigClean -} -constraints bug-ad9361fd20f0 -# TODO - once above bug is fixed, add tests for large result range +} +bigtestRO string-range-bigdata-2 "bug ad9361fd20 case 1" aXaaaa -body { + string range [string insert [string repeat a 0x80000000] end-0x7fffffff X] 0 5 +} +bigtestRO string-range-bigdata-3 "bug ad9361fd20 case 2" 2 -body { + string length [string range $s end-0x7fffffff end-0x7ffffffe] +} -setup { + set s [string repeat a 0xffffffff] +} -cleanup { + bigClean +} +# TODO - add tests for large result range # # string repeat - use bigtest, not bigtestRO !! |