summaryrefslogtreecommitdiffstats
path: root/tests/split.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2021-03-31 10:38:25 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2021-03-31 10:38:25 (GMT)
commit4c25696376a8c5d1f66c51a06193e8dc815287f7 (patch)
treed9d8367476dd8deff3bebfb6f81b295845b91ee0 /tests/split.test
parent2dab8fa488cce34d6dc5538612f1b1fba01c8ab5 (diff)
parent9406745440cf6387d6aaa25d4b595fba069cf5d0 (diff)
downloadtcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.zip
tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.gz
tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.bz2
merge core-8-branch
Diffstat (limited to 'tests/split.test')
-rw-r--r--tests/split.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/split.test b/tests/split.test
index 74879cf..a34c49d 100644
--- a/tests/split.test
+++ b/tests/split.test
@@ -49,20 +49,20 @@ test split-1.8 {basic split commands} {
} {]\n}
test split-1.9 {basic split commands} {
proc foo {} {
- set x ab\000c
+ set x ab\x00c
set y [split $x {}]
return $y
}
foo
-} "a b \000 c"
+} "a b \x00 c"
test split-1.10 {basic split commands} {
- split "a0ab1b2bbb3\000c4" ab\000c
+ split "a0ab1b2bbb3\x00c4" ab\x00c
} {{} 0 {} 1 2 {} {} 3 {} 4}
test split-1.11 {basic split commands} {
split "12,3,45" {,}
} {12 3 45}
test split-1.12 {basic split commands} {
- split "\u0001ab\u0001cd\u0001\u0001ef\u0001" \1
+ split "\x01ab\x01cd\x01\x01ef\x01" \x01
} {{} ab cd {} ef {}}
test split-1.13 {basic split commands} {
split "12,34,56," {,}
@@ -71,10 +71,10 @@ test split-1.14 {basic split commands} {
split ",12,,,34,56," {,}
} {{} 12 {} {} 34 56 {}}
test split-1.15 {basic split commands} -body {
- split "a\U1F4A9b" {}
-} -result "a \U1F4A9 b"
+ split "a💩b" {}
+} -result "a 💩 b"
test split-1.16 {basic split commands} -body {
- split "a\U1F4A9b" \U1F4A9
+ split "a💩b" 💩
} -result "a b"
test split-2.1 {split errors} {