diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 05:44:19 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-16 05:44:19 (GMT) |
| commit | 713ccc8bb633b7d9df7587490e52352beca7d2c1 (patch) | |
| tree | fd52f8f99ba65832d0c6e27a0d23366ab47e77cb /tests/bigdata.test | |
| parent | e8326222de6ca4ce5eaadd888e9b8b515f6b165a (diff) | |
| download | tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.zip tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.tar.gz tcl-713ccc8bb633b7d9df7587490e52352beca7d2c1.tar.bz2 | |
Fix VC++ unused variable warning, lappend and join.
Diffstat (limited to 'tests/bigdata.test')
| -rw-r--r-- | tests/bigdata.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index 5729ef8..5519ded 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -741,7 +741,7 @@ bigtestRO foreach-bigdata-1 "foreach" 1 -body { # # lappend -bigtest lappend-bigdata-1 "lappend" {4294967300 4294967300 {0 1 2 3 4 a b c d}} -body { +bigtest lappend-bigdata-1 "lappend" {4294967300 4294967300 {1 2 3 4 5 a b c d}} -body { # Do NOT initialize l in a -setup block. That requires more memory and fails. # Do not have enough memory for a full compare. # Just check end @@ -990,13 +990,14 @@ bigtestRO lsort-bigdata-1 "lsort" [list 4294967296 [lrepeat 10 0] [lrepeat 10 9] # # join bigtestRO join-bigdata-1 "join" 1 -body { - string equal [join $l ""] $s + puts len:[string length [join $l ""]] + #string equal [join $l ""] $s } -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 |