From 4686d8aa4eb30c10ae831cd749bd19685334cc3e Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 4 Feb 2010 13:49:55 +0000
Subject: minor maintenance

---
 tests/set-old.test | 11 ++++++++---
 1 file 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:
-- 
cgit v0.12