diff options
-rw-r--r-- | tests/info.test | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test index 0921466..a5573c1 100644 --- a/tests/info.test +++ b/tests/info.test @@ -2398,6 +2398,28 @@ test info-33.35 {{*}, literal, simple, bytecompiled} -body { # ------------------------------------------------------------------------- unset -nocomplain res +test info-19.7 {info vars: before TIP #278 - global vars resolved in namespace} -setup { + catch {namespace delete x} +} -body { + expr { [llength [namespace eval x {info vars}]] > 0 } +} -cleanup { + namespace delete x +} -result 1 +test info-19.8 {info vars: before TIP #278 - global vars resolved in namespace} -setup { + catch {namespace delete x} +} -body { + namespace eval x {info vars tcl_platform} +} -cleanup { + namespace delete x +} -result {tcl_platform} +test info-19.9 {info vars: global vars resolved by pattern} -setup { + catch {namespace delete x} +} -body { + namespace eval x {info vars ::tcl_platform} +} -cleanup { + namespace delete x +} -result {::tcl_platform} + test info-39.2 {Bug 4b61afd660} -setup { proc probe {} { return [dict get [info frame -1] line] |