summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-02-13 20:35:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-02-13 20:35:03 (GMT)
commit7ef524d53becde0248b676f1849e769fc0a9c4eb (patch)
treeeee83a35bd53de7f2190cbfa98929dc3398a1921
parentb213f0356ba2820616b92d3c8ff5928c1870d511 (diff)
downloadtcl-7ef524d53becde0248b676f1849e769fc0a9c4eb.zip
tcl-7ef524d53becde0248b676f1849e769fc0a9c4eb.tar.gz
tcl-7ef524d53becde0248b676f1849e769fc0a9c4eb.tar.bz2
add missing constraint
-rw-r--r--tests/set.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/set.test b/tests/set.test
index 3ae0ce5..76eab79 100644
--- a/tests/set.test
+++ b/tests/set.test
@@ -10,13 +10,15 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: set.test,v 1.14 2007/12/13 15:26:07 dgp Exp $
+# RCS: @(#) $Id: set.test,v 1.15 2008/02/13 20:35:03 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
namespace import -force ::tcltest::*
}
+testConstraint testset2 [llength [info commands testset2]]
+
catch {unset x}
catch {unset i}
@@ -514,7 +516,7 @@ test set-4.6 {set command: runtime error, basic array operations} {
list [catch {$z a} msg] $msg
} {1 {can't read "a": variable is array}}
-test set-5.1 {error on malformed array name} {
+test set-5.1 {error on malformed array name} testset2 {
unset -nocomplain z
catch {testset2 z(a) b} msg
catch {testset2 z(b) a} msg1