diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-24 14:51:20 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-24 14:51:20 (GMT) |
commit | 3a9a817f678320a821b13ebe5f2cec6aeab1ecca (patch) | |
tree | e6ce6efabd887634b1d0f001a34b1ee2b4e999d4 /tests/bigdata.test | |
parent | 277effbc04fce23d5e3daf3730415b0dc1c43bc9 (diff) | |
parent | 9f102b5b85a655612fd09d1b038247a6e8b649d5 (diff) | |
download | tcl-3a9a817f678320a821b13ebe5f2cec6aeab1ecca.zip tcl-3a9a817f678320a821b13ebe5f2cec6aeab1ecca.tar.gz tcl-3a9a817f678320a821b13ebe5f2cec6aeab1ecca.tar.bz2 |
Fix [d4ede611a7] - scan bigdata
Diffstat (limited to 'tests/bigdata.test')
-rw-r--r-- | tests/bigdata.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index aa380dc..bfae19a 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -609,19 +609,21 @@ bigtestRO format-bigdata-8 "format big * precision" {4294967300 0123 6789} -body # # scan -bigtestRO scan-bigdata-1 "scan %s" {1 1 2 1} -body { +bigtestRO scan-bigdata-1 "scan %s" {1 1 2 X 1 2 4294967300 01234X} -body { # Unset explicitly before setting to save memory as bigtestRO runs the # script below twice. - unset -nocomplain result digits + unset -nocomplain result digits x lappend result [string equal [scan $s %s] $s] lappend result [string equal [scan $s {%[0-9X]}] $s] lappend result [scan $s {%[0-9]%s} digits x] $x - lappend result [string equal $digits [bigString 0x100000008]] + lappend result [string equal $digits [bigString 0x100000009]] + lappend result [scan $s %4294967300s%s x y] + lappend result [string length $x] $y } -setup { set s [bigString 0x10000000a 0x100000009] } -cleanup { bigClean digits -} -constraints bug-d4ede611a7 +} # # regexp |