diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
| commit | 4c25696376a8c5d1f66c51a06193e8dc815287f7 (patch) | |
| tree | d9d8367476dd8deff3bebfb6f81b295845b91ee0 /tests/compile.test | |
| parent | 2dab8fa488cce34d6dc5538612f1b1fba01c8ab5 (diff) | |
| parent | 9406745440cf6387d6aaa25d4b595fba069cf5d0 (diff) | |
| download | tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.zip tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.gz tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test index 23d81dd..31af2e2 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -286,10 +286,10 @@ test compile-7.1 {TclCompileWhileCmd: command substituted test expression} { } {4} test compile-8.1 {CollectArgInfo: binary data} { - list [catch "string length \000foo" msg] $msg + list [catch "string length \x00foo" msg] $msg } {0 4} test compile-8.2 {CollectArgInfo: binary data} { - list [catch "string length foo\000" msg] $msg + list [catch "string length foo\x00" msg] $msg } {0 4} test compile-8.3 {CollectArgInfo: handle "]" at end of command properly} { set x ] |