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 | |
| 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')
| -rw-r--r-- | tests/execute.test | 2 | ||||
| -rw-r--r-- | tests/obj.test | 5 |
2 files changed, 3 insertions, 4 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 diff --git a/tests/obj.test b/tests/obj.test index 4d57c08..ce1883a 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -27,7 +27,6 @@ test obj-1.1 {Tcl_AppendAllObjTypes, and InitTypeTable, Tcl_RegisterObjType} tes set r 1 foreach {t} { {array search} - bytearray bytecode cmdName dict @@ -48,10 +47,10 @@ test obj-2.2 {Tcl_GetObjType and Tcl_ConvertToType} testobj { set result "" lappend result [testobj freeallvars] lappend result [testintobj set 1 12] - lappend result [testobj convert 1 bytearray] + lappend result [testobj convert 1 string] lappend result [testobj type 1] lappend result [testobj refcount 1] -} {{} 12 12 bytearray 3} +} {{} 12 12 string 3} test obj-3.1 {Tcl_ConvertToType error} testobj { list [testdoubleobj set 1 12.34] \ |