diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:38:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-30 03:38:26 (GMT) |
| commit | 89139479b49abdaeae4ba032803c788a1d83564f (patch) | |
| tree | 3396f56ff7d2b83552900cb252ef14ae465266a7 /tests/execute.test | |
| parent | 11e8a2ccbbd483b7bfd54c822a7df1445ee45f0f (diff) | |
| parent | c83d36abf02c571cc0732ec5c7f8250d3be0df5a (diff) | |
| download | tcl-89139479b49abdaeae4ba032803c788a1d83564f.zip tcl-89139479b49abdaeae4ba032803c788a1d83564f.tar.gz tcl-89139479b49abdaeae4ba032803c788a1d83564f.tar.bz2 | |
merge novem
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 2d6bda2..8e3924e 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} |