diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-04 13:22:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-04 13:22:37 (GMT) |
commit | 4f20ba22068f0928363747492ca4b6fbbd4821b4 (patch) | |
tree | e3352104edaf96274bad037d9542e124fac54691 /tests | |
parent | 299297e8d3f59249a766f9cd8da4522177d00ca5 (diff) | |
parent | 3f2bb8a02927f794f32b98f7be6f643d0c57b6bb (diff) | |
download | tcl-core-tip-626-candidate.zip tcl-core-tip-626-candidate.tar.gz tcl-core-tip-626-candidate.tar.bz2 |
Merge 9.0core-tip-626-candidate
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bigdata.test | 12 | ||||
-rw-r--r-- | tests/tailcall.test | 2 |
2 files changed, 6 insertions, 8 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index 08556dd..5eb7b89 100644 --- a/tests/bigdata.test +++ b/tests/bigdata.test @@ -394,7 +394,7 @@ bigtestRO string-replace-bigdata-1 "string replace" {789012345 012345678 XYZ7890 } -cleanup { bigClean } -# TODO - +# TODO - # - replacements string is large # - replace in the middle - string length grows, shrinks # - last < first @@ -720,7 +720,7 @@ bigtestRO binary-format-bigdata-1 "binary format aN" [list 4294967296 X\0\0\0 \ list [string length $bin] [string range $bin 0 3] [string range $bin end-3 end] } -cleanup { bigClean -} +} # TODO - do string compare and add other format specifiers bigtestRO binary-format-bigdata-2 "binary format a*" 1 -body { @@ -1114,10 +1114,9 @@ bigtestRO concat-bigdata-1 "concat" {4294967296 {0 1 2 3 4} {6 7 0 1 2} {3 4 5 6 test puts-bigdata-1 "puts" -setup { set fpath [makeFile {} bug-0306a5563.data] } -constraints { - bug0306a5563 bigdata } -body { - set fd [open $fpath w] + set fd [open $fpath w] puts -nonewline $fd [testbigdata string 0x80000001] close $fd set fd [open $fpath] @@ -1130,13 +1129,12 @@ test puts-bigdata-1 "puts" -setup { test puts-bigdata-2 "puts" -setup { set fpath [tcltest::makeFile {} bug-0306a5563.data] } -constraints { - bug0306a5563 bigdata } -body { set fd [open $fpath w] set s [testbigdata string 0x7FFFFFFE] - # The character to append in the next line is —, EM DASH, - # code point 0x2014 (decimal 8212, UTF-8 #xE2 #x80 #x94) + # The character to append in the next line is —, EM DASH, + # code point 0x2014 (decimal 8212, UTF-8 #xE2 #x80 #x94) append s \u2014 puts -nonewline $fd $s close $fd diff --git a/tests/tailcall.test b/tests/tailcall.test index c9ec674..0016845 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -709,7 +709,7 @@ test tailcall-14.1-bc {{in a deleted namespace} {byte compiled}} -body { } -returnCodes 1 -result {namespace "::ns" not found} test tailcall-bug-784befb0ba {tailcall crash with 254 args} -body { - proc tccrash args {llength $args} + proc tccrash args {llength $args} # Must be EXACTLY 254 for crash proc p {} [list tailcall tccrash {*}[lrepeat 254 x]] p |