diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:01:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:01:46 (GMT) |
| commit | c8342af33835a5c29a3bdb30c81f710cdb3df325 (patch) | |
| tree | a7729c9ad723f88d70dc6d1a6d3276810a9dcc37 /tests/execute.test | |
| parent | c668ed46ecacba2c4093513513a348622a0760c9 (diff) | |
| parent | 1d0751deb7fafb3e276e1ba022ef023e795946fb (diff) | |
| download | tcl-c8342af33835a5c29a3bdb30c81f710cdb3df325.zip tcl-c8342af33835a5c29a3bdb30c81f710cdb3df325.tar.gz tcl-c8342af33835a5c29a3bdb30c81f710cdb3df325.tar.bz2 | |
merge 8.6
Diffstat (limited to 'tests/execute.test')
| -rw-r--r-- | tests/execute.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/execute.test b/tests/execute.test index 5b8ce2d..6c277f8 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -724,7 +724,7 @@ test execute-6.14 {Tcl_ExprObj: exprcode context validation} -setup { } set result {} lappend result [expr $e] - lappend result [namespace eval foo {expr $e}] + lappend result [namespace eval foo [list expr $e]] } -cleanup { namespace delete foo } -result {1 2} @@ -733,11 +733,11 @@ test execute-6.15 {Tcl_ExprObj: exprcode name resolution epoch validation} -setu } -body { set e { [llength {}]+1 } set result {} - lappend result [namespace eval foo {expr $e}] + lappend result [namespace eval foo [list expr $e]] namespace eval foo { proc llength {args} {return 1} } - lappend result [namespace eval foo {expr $e}] + lappend result [namespace eval foo [list expr $e]] } -cleanup { namespace delete foo } -result {1 2} |