summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorapnadkarni <apnmbx-wits@yahoo.com>2023-05-01 12:16:44 (GMT)
committerapnadkarni <apnmbx-wits@yahoo.com>2023-05-01 12:16:44 (GMT)
commitfe84f70800dcb3534a5b8573dac6575d45db4c7c (patch)
tree0c54138f668c18544b6c01e0adde7406d4283f9e /tests
parentc77055a8032f0f7de05c76f7bfe1059b75618ea5 (diff)
downloadtcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.zip
tcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.tar.gz
tcl-fe84f70800dcb3534a5b8573dac6575d45db4c7c.tar.bz2
Tests for [ad9361fd20]
Diffstat (limited to 'tests')
-rw-r--r--tests/bigdata.test14
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 !!