diff options
author | dgp <dgp@users.sourceforge.net> | 2016-12-06 20:09:00 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-12-06 20:09:00 (GMT) |
commit | 6cdaf31447fff194fce3985d881f5328e110a650 (patch) | |
tree | d165903c60c1547fd74e79cc167dc88e30509e1b /tests/execute.test | |
parent | dcd49ec1ee202c50fa9921cabd1b716ae0c159fe (diff) | |
download | tcl-6cdaf31447fff194fce3985d881f5328e110a650.zip tcl-6cdaf31447fff194fce3985d881f5328e110a650.tar.gz tcl-6cdaf31447fff194fce3985d881f5328e110a650.tar.bz2 |
Purge the old and broken Tcl_ObjType.
Diffstat (limited to 'tests/execute.test')
-rw-r--r-- | tests/execute.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test index 2480a95..2d6bda2 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -993,7 +993,7 @@ test execute-9.1 {Interp result resetting [Bug 1522803]} { } SUCCESS test execute-10.1 {TclExecuteByteCode, INST_CONCAT1, bytearrays} { - apply {s {binary scan $s c x; list $x [scan $s$s %c%c]}} \u0130 + apply {s {binary scan [binary format a $s] c x; list $x [scan $s$s %c%c]}} \u0130 } {48 {304 304}} test execute-10.2 {Bug 2802881} -setup { interp create slave |