diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 14:52:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-16 14:52:46 (GMT) |
| commit | 85461dc671e51b74fb17b69a207abfedbffc1d91 (patch) | |
| tree | dfceab88a11dfd23749b50a658e02ee183038edb /tests/obj.test | |
| parent | 53a12f1cf62f19f53ef964da17fc300de9e1ecdb (diff) | |
| parent | 91a20bc018f04bcf8ce13412ad16cfcbe9e53489 (diff) | |
| download | tcl-bug_0b8c387cf7.zip tcl-bug_0b8c387cf7.tar.gz tcl-bug_0b8c387cf7.tar.bz2 | |
Merge trunk. bug_0b8c387cf7
Add TCL_EVAL_GLOBAL flag to Tcl_EvalObjEx(), for reason mentioned in [0b8c387cf7].
Diffstat (limited to 'tests/obj.test')
| -rw-r--r-- | tests/obj.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/obj.test b/tests/obj.test index 151abfb..7bf00f7 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -26,7 +26,7 @@ testConstraint wideBiggerThanInt [expr {wide(0x80000000) != int(0x80000000)}] test obj-1.1 {Tcl_AppendAllObjTypes, and InitTypeTable, Tcl_RegisterObjType} testobj { set r 1 foreach {t} { - {array search} + {array search} bytearray bytecode cmdName @@ -82,7 +82,7 @@ test obj-6.1 {Tcl_DuplicateObj, object has internal rep} testobj { set result "" lappend result [testobj freeallvars] lappend result [testintobj set 1 47] - lappend result [testobj duplicate 1 2] + lappend result [testobj duplicate 1 2] lappend result [testintobj get 2] lappend result [testobj refcount 1] lappend result [testobj refcount 2] @@ -91,7 +91,7 @@ test obj-6.2 {Tcl_DuplicateObj, "empty string" object} testobj { set result "" lappend result [testobj freeallvars] lappend result [testobj newobj 1] - lappend result [testobj duplicate 1 2] + lappend result [testobj duplicate 1 2] lappend result [testintobj get 2] lappend result [testobj refcount 1] lappend result [testobj refcount 2] |