diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-12-17 07:53:41 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-12-17 07:53:41 (GMT) |
| commit | 691e34c6ccbee85bbd91e420504983345029d5ea (patch) | |
| tree | 53724883281fc684d74af9de3e4a0a1bfd56e946 /tests/parseOld.test | |
| parent | a9606871f5ddb7d6a8cd69f3fa0c41fe8b3c0396 (diff) | |
| parent | 2933029b8c2dfc2e4a8bd89cacad8aa53099d5d4 (diff) | |
| download | tcl-691e34c6ccbee85bbd91e420504983345029d5ea.zip tcl-691e34c6ccbee85bbd91e420504983345029d5ea.tar.gz tcl-691e34c6ccbee85bbd91e420504983345029d5ea.tar.bz2 | |
Merge trunk
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 4c08b5d..a6e07a2 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.test @@ -263,14 +263,14 @@ 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 { - list \ua2 -} [testbytestring "\xc2\xa2"] + expr {[list \ua2] eq [testbytestring "\xc2\xa2"]} +} 1 test parseOld-7.13 {backslash substitution} testbytestring { - list \u4e21 -} [testbytestring "\xe4\xb8\xa1"] + expr {[list \u4e21] eq [testbytestring "\xe4\xb8\xa1"]} +} 1 test parseOld-7.14 {backslash substitution} testbytestring { - list \u4e2k -} [testbytestring "\xd3\xa2k"] + expr {[list \u4e2k] eq [testbytestring "\xd3\xa2k"]} +} 1 # Semi-colon. |