summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-05-04 13:22:37 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-05-04 13:22:37 (GMT)
commit4f20ba22068f0928363747492ca4b6fbbd4821b4 (patch)
treee3352104edaf96274bad037d9542e124fac54691 /tests
parent299297e8d3f59249a766f9cd8da4522177d00ca5 (diff)
parent3f2bb8a02927f794f32b98f7be6f643d0c57b6bb (diff)
downloadtcl-core-tip-626-candidate.zip
tcl-core-tip-626-candidate.tar.gz
tcl-core-tip-626-candidate.tar.bz2
Diffstat (limited to 'tests')
-rw-r--r--tests/bigdata.test12
-rw-r--r--tests/tailcall.test2
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