diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:29:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:29:05 (GMT) |
| commit | c83d36abf02c571cc0732ec5c7f8250d3be0df5a (patch) | |
| tree | eee455af8031ed2c2360413c6bd5c54e40828de7 /tests/execute.test | |
| parent | eda31043060daa502f6223e62280da146d69d2fb (diff) | |
| parent | 30c40c4540165e68c6599905c2d97f826af3076c (diff) | |
| download | tcl-c83d36abf02c571cc0732ec5c7f8250d3be0df5a.zip tcl-c83d36abf02c571cc0732ec5c7f8250d3be0df5a.tar.gz tcl-c83d36abf02c571cc0732ec5c7f8250d3be0df5a.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} |