diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:26:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:26:36 (GMT) |
| commit | 5115781cfdf86915300c18ff4ec8e51c09a30219 (patch) | |
| tree | 6cb2a302ad2c0d645cb49a3e5fa53646284f2cb9 /tests/proc-old.test | |
| parent | f4151635b12b2c9b62d1b638b7096875bb65bc76 (diff) | |
| download | tcl-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/proc-old.test')
| -rw-r--r-- | tests/proc-old.test | 5 |
1 files changed, 1 insertions, 4 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 |