diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-30 12:02:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-30 12:02:28 (GMT) |
| commit | a67fec7324fcd6468e5ce07f9c2ec1aad6463d55 (patch) | |
| tree | 30034119118a20db9ff2faf3caad0844612c4f02 /tests/execute.test | |
| parent | fcc5b3486f49fbab3b7000d534ac5990f3403559 (diff) | |
| parent | e0578530b062a38b3fe7dfd1474dd3caa927c271 (diff) | |
| download | tcl-a67fec7324fcd6468e5ce07f9c2ec1aad6463d55.zip tcl-a67fec7324fcd6468e5ce07f9c2ec1aad6463d55.tar.gz tcl-a67fec7324fcd6468e5ce07f9c2ec1aad6463d55.tar.bz2 | |
merge trunk
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 2480a95..7bd2601 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} |