diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-04 13:49:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-04 13:49:55 (GMT) |
| commit | 4686d8aa4eb30c10ae831cd749bd19685334cc3e (patch) | |
| tree | 8ed900c09793a79a321efbb152ab6b966199ba08 | |
| parent | ecc5f96727b39eebbad74ffe0e0dfaabc059d686 (diff) | |
| download | tcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.zip tcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.tar.gz tcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.tar.bz2 | |
minor maintenance
| -rw-r--r-- | tests/set-old.test | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/set-old.test b/tests/set-old.test index a519a44..de16d60 100644 --- a/tests/set-old.test +++ b/tests/set-old.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: set-old.test,v 1.23 2010/02/04 13:46:33 dkf Exp $ +# RCS: @(#) $Id: set-old.test,v 1.24 2010/02/04 13:49:55 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -21,7 +21,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } proc ignore args {} - + # Simple variable operations. catch {unset a} @@ -677,6 +677,7 @@ test set-old-8.56 {array command, array statistics on a non-array} { test set-old-8.57 {array command, array get with trivial pattern} { catch {unset a} set a(x) 1 + set a(y) 2 array get a x } {x 1} @@ -911,7 +912,7 @@ test set-old-12.2 {cleanup on procedure return} { } foo } 23456 - + # Must delete variables when done, since these arrays get used as # scalars by other tests. catch {unset a} @@ -923,3 +924,7 @@ catch {rename foo {}} # cleanup ::tcltest::cleanupTests return + +# Local Variables: +# mode: tcl +# End: |