diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-04-28 13:11:28 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-04-28 13:11:28 (GMT) |
| commit | 74c3e73d8d217092ccc418bd990bf43f9d8890ce (patch) | |
| tree | 81765be95085309d4c8abe150311d739005cb45c /tests/var.test | |
| parent | 25b3a8473ed731844f2c5f093d1156a80c82e848 (diff) | |
| download | tcl-74c3e73d8d217092ccc418bd990bf43f9d8890ce.zip tcl-74c3e73d8d217092ccc418bd990bf43f9d8890ce.tar.gz tcl-74c3e73d8d217092ccc418bd990bf43f9d8890ce.tar.bz2 | |
* doc/global.n:
* doc/upvar.n:
* generic/tclVar.c (ObjMakeUpvar):
* tests/upvar.test (upvar-8.11):
* tests/var.test (var-3.11): Avoid creation of unusable variables:
[Bug 600812] [TIP 184].
Diffstat (limited to 'tests/var.test')
| -rw-r--r-- | tests/var.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/var.test b/tests/var.test index 8969384..c675d63 100644 --- a/tests/var.test +++ b/tests/var.test @@ -14,7 +14,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: var.test,v 1.22 2003/05/12 17:20:41 msofer Exp $ +# RCS: @(#) $Id: var.test,v 1.23 2004/04/28 13:11:35 msofer Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -272,6 +272,11 @@ test var-3.10 {MakeUpvar, } { set msg } } {1 1} +test var-3.11 {MakeUpvar, my var looks like array elem} -body { + catch {unset aaaaa} + set aaaaa 789789 + upvar #0 aaaaa foo(bar) +} -returnCodes 1 -result {bad variable name "foo(bar)": upvar won't create a scalar variable that looks like an array element} if {[info commands testgetvarfullname] != {}} { test var-4.1 {Tcl_GetVariableName, global variable} { |