From 7ef524d53becde0248b676f1849e769fc0a9c4eb Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 13 Feb 2008 20:35:03 +0000
Subject: add missing constraint

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