diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 15:59:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 15:59:09 (GMT) |
commit | 881b147ab51bffc35d6d0bc1b8c35fbc5a518976 (patch) | |
tree | dea57c089ac256ace7ce55aaed0d525663416171 /tests | |
parent | d40bb9d13a5a6e2607f313df4bd986886f1ef8d7 (diff) | |
parent | b583ea7360808cb502d1ea65954ab0387ebdd823 (diff) | |
download | tcl-881b147ab51bffc35d6d0bc1b8c35fbc5a518976.zip tcl-881b147ab51bffc35d6d0bc1b8c35fbc5a518976.tar.gz tcl-881b147ab51bffc35d6d0bc1b8c35fbc5a518976.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bigdata.test | 10 | ||||
-rw-r--r-- | tests/tailcall.test | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/tests/bigdata.test b/tests/bigdata.test index 0f72be7..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 { @@ -1116,7 +1116,7 @@ test puts-bigdata-1 "puts" -setup { } -constraints { bigdata } -body { - set fd [open $fpath w] + set fd [open $fpath w] puts -nonewline $fd [testbigdata string 0x80000001] close $fd set fd [open $fpath] @@ -1133,8 +1133,8 @@ test puts-bigdata-2 "puts" -setup { } -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 |