summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-04 13:49:55 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-04 13:49:55 (GMT)
commit4686d8aa4eb30c10ae831cd749bd19685334cc3e (patch)
tree8ed900c09793a79a321efbb152ab6b966199ba08 /tests
parentecc5f96727b39eebbad74ffe0e0dfaabc059d686 (diff)
downloadtcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.zip
tcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.tar.gz
tcl-4686d8aa4eb30c10ae831cd749bd19685334cc3e.tar.bz2
minor maintenance
Diffstat (limited to 'tests')
-rw-r--r--tests/set-old.test11
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: