Import Tcl-code 8.6.8
This commit is contained in:
@@ -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}
|
||||
|
||||
Reference in New Issue
Block a user