diff options
Diffstat (limited to 'tests/upvar.test')
| -rw-r--r-- | tests/upvar.test | 48 |
1 files changed, 46 insertions, 2 deletions
diff --git a/tests/upvar.test b/tests/upvar.test index 2d100a1..0db9404 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -1,4 +1,4 @@ -# Commands covered: upvar +# Commands covered: 'upvar', 'namespace upvar' # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: upvar.test,v 1.10 2004/05/19 10:46:27 dkf Exp $ +# RCS: @(#) $Id: upvar.test,v 1.11 2006/02/01 17:48:13 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -405,6 +405,50 @@ test upvar-9.7 {Tcl_UpVar procedure} testupvar { } {1234} catch {unset a} + +# +# Tests for 'namespace upvar'. As the implementation is essentially the same as +# for 'upvar', we only test that the variables are linked correctly. Ie, we +# assume that the behaviour of variables once the link is established has +# already been tested above. +# + +# Clear out any namespaces called test_ns_* +catch {namespace delete {expand}[namespace children :: test_ns_*]} + +namespace eval test_ns_0 { + variable x test_ns_0 +} + +namespace eval test_ns_1 { + variable x test_ns_1 +} + +namespace eval test_ns_2 {} + +set x test_global + +test upvar-NS-1.1 {nsupvar links to correct variable} \ + -body { + namespace eval test_ns_2 { + namespace upvar ::test_ns_0 x w + set w + } + } \ + -result {test_ns_0} + +test upvar-NS-1.2 {nsupvar links to correct variable} \ + -body { + namespace eval test_ns_2 { + proc a {} { + namespace upvar ::test_ns_0 x w + set w + } + return [a][rename a {}] + } + } \ + -result {test_ns_0} + # cleanup ::tcltest::cleanupTests return |