diff options
| author | stanton <stanton> | 1998-06-18 18:25:58 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-18 18:25:58 (GMT) |
| commit | e27be7921a7f70adf89b0c59b976c96c32fae7a8 (patch) | |
| tree | 0e642457c83579949f1c862535263886e6e1b374 /tests/upvar.test | |
| parent | 75b521227f47c2241a4edb7d1e913ac348f05f12 (diff) | |
| download | tcl-e27be7921a7f70adf89b0c59b976c96c32fae7a8.zip tcl-e27be7921a7f70adf89b0c59b976c96c32fae7a8.tar.gz tcl-e27be7921a7f70adf89b0c59b976c96c32fae7a8.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/upvar.test')
| -rw-r--r-- | tests/upvar.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/upvar.test b/tests/upvar.test index d9548b0..cb89b56 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -327,6 +327,11 @@ test upvar-8.9 {upvar won't create namespace variable that refers to procedure v } list [catch {MakeLink 1} msg] $msg } {1 {bad variable name "a": upvar won't create namespace variable that refers to procedure variable}} +test upvar-8.10 {upvar will create element alias for new array element} { + catch {unset upvarArray} + array set upvarArray {} + catch {upvar 0 upvarArray(elem) upvarArrayElemAlias} +} {0} if {[info commands testupvar] != {}} { test upvar-9.1 {Tcl_UpVar2 procedure} { |