diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 07:11:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 07:11:18 (GMT) |
| commit | 1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7 (patch) | |
| tree | 35749cc38881de41be58b2c55c3e82de9cdc342c /tests/parseOld.test | |
| parent | c8617b374b29d14c8be0900f1623ca3120468b62 (diff) | |
| download | tcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.zip tcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.tar.gz tcl-1f1f43fcd2bfa68c8bff1a9d6dbb8ecab4be43e7.tar.bz2 | |
Thanks to TIP #587, convert many escapes in the testcases into the actual (UTF-8) character.
Diffstat (limited to 'tests/parseOld.test')
| -rw-r--r-- | tests/parseOld.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/parseOld.test b/tests/parseOld.test index f8caf24..853f5b5 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.test @@ -264,14 +264,14 @@ test parseOld-7.10 {backslash substitution} { test parseOld-7.11 {backslash substitution} { eval "list a \"b c\"\\\nd e" } {a {b c} d e} -test parseOld-7.12 {backslash substitution} testbytestring { - expr {[list \ua2] eq [testbytestring "\xc2\xa2"]} +test parseOld-7.12 {backslash substitution} { + expr {[list \uA2] eq "¢"} } 1 -test parseOld-7.13 {backslash substitution} testbytestring { - expr {[list \u4e21] eq [testbytestring "\xe4\xb8\xa1"]} +test parseOld-7.13 {backslash substitution} { + expr {[list \u4E21] eq "両"} } 1 -test parseOld-7.14 {backslash substitution} testbytestring { - expr {[list \u4e2k] eq [testbytestring "\xd3\xa2k"]} +test parseOld-7.14 {backslash substitution} { + expr {[list \u4E2k] eq "Ӣk"} } 1 # Semi-colon. |