summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-25 19:26:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-25 19:26:36 (GMT)
commit5115781cfdf86915300c18ff4ec8e51c09a30219 (patch)
tree6cb2a302ad2c0d645cb49a3e5fa53646284f2cb9 /tests
parentf4151635b12b2c9b62d1b638b7096875bb65bc76 (diff)
downloadtcl-5115781cfdf86915300c18ff4ec8e51c09a30219.zip
tcl-5115781cfdf86915300c18ff4ec8e51c09a30219.tar.gz
tcl-5115781cfdf86915300c18ff4ec8e51c09a30219.tar.bz2
TIP #323 IMPLEMENTATION (partial)
* doc/global.n: Revise [global] to accept zero variable names. * generic/tclVar.c: * tests/proc-old.test: * tests/var.test: * doc/global.n: Correct false claim about [info locals].
Diffstat (limited to 'tests')
-rw-r--r--tests/proc-old.test5
-rw-r--r--tests/var.test11
2 files changed, 11 insertions, 5 deletions
diff --git a/tests/proc-old.test b/tests/proc-old.test
index d0a116e..29a0607 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.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: proc-old.test,v 1.16 2008/07/19 22:50:39 nijtmans Exp $
+# RCS: @(#) $Id: proc-old.test,v 1.17 2008/09/25 19:26:39 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -284,9 +284,6 @@ test proc-old-5.7 {error conditions} {
test proc-old-5.8 {error conditions} {
catch {return}
} 2
-test proc-old-5.9 {error conditions} {
- list [catch {global} msg] $msg
-} {1 {wrong # args: should be "global varName ?varName ...?"}}
proc tproc {} {
set a 22
global a
diff --git a/tests/var.test b/tests/var.test
index 5797434..c160cbd 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.32 2008/07/13 23:15:22 nijtmans Exp $
+# RCS: @(#) $Id: var.test,v 1.33 2008/09/25 19:26:40 dgp Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -352,6 +352,15 @@ test var-6.4 {Tcl_GlobalObjCmd, variable name matching :*} {
p
set :v
} {fixed}
+test var-6.5 {Tcl_GlobalObjCmd, no-op case (TIP 323)} {
+ global
+} {}
+test var-6.6 {Tcl_GlobalObjCmd, no-op case (TIP 323)} {
+ proc p {} {
+ global
+ }
+ p
+} {}
test var-7.1 {Tcl_VariableObjCmd, create and initialize one new ns variable} {
catch {namespace delete test_ns_var}