diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-19 13:21:56 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-19 13:21:56 (GMT) |
| commit | 11b8f6eb00bb80ed84c0b8f4c382b9626f94e7ea (patch) | |
| tree | fb7f2d96d4fe7aaed651b4d6145ad93a333803ea /tests/bigdata.test | |
| parent | f6830a72ec9060084f21dea70771bc1092d5f207 (diff) | |
| download | tcl-11b8f6eb00bb80ed84c0b8f4c382b9626f94e7ea.zip tcl-11b8f6eb00bb80ed84c0b8f4c382b9626f94e7ea.tar.gz tcl-11b8f6eb00bb80ed84c0b8f4c382b9626f94e7ea.tar.bz2 | |
Fix [3c04fcdd1a] - join truncates large lists
Diffstat (limited to 'tests/bigdata.test')
| -rw-r--r-- | tests/bigdata.test | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index 5519ded..78b8baf 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -989,15 +989,14 @@ bigtestRO lsort-bigdata-1 "lsort" [list 4294967296 [lrepeat 10 0] [lrepeat 10 9] # # join -bigtestRO join-bigdata-1 "join" 1 -body { - puts len:[string length [join $l ""]] - #string equal [join $l ""] $s +bigtestRO join-bigdata-1 "join" [list 0123456789 6789012345] -body { + set s [join $l ""] + list [string range $s 0 9] [string range $s end-9 end] } -setup { set l [bigList 0x100000000] - set s [bigString 0x100000000] } -cleanup { bigClean -} -constraints bug-3c04fcdd1a +} bigtest split-bigdata-1 "split" {4294967296 {0 1 2 3 4} {1 2 3 4 5}} -body { # Fill list compare needs too much memory |