summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-14 15:55:58 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-14 15:55:58 (GMT)
commit5e8b55c91a1d7a995e3dedfb11638761624b7e98 (patch)
treefdff56d6fd50f378b8f2802ab991993953a882b6 /tests
parente45c26dc9e680ebd012d146d76ba573da01481b8 (diff)
downloadtcl-5e8b55c91a1d7a995e3dedfb11638761624b7e98.zip
tcl-5e8b55c91a1d7a995e3dedfb11638761624b7e98.tar.gz
tcl-5e8b55c91a1d7a995e3dedfb11638761624b7e98.tar.bz2
missing constraint
Diffstat (limited to 'tests')
-rw-r--r--tests/util.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/util.test b/tests/util.test
index 20a062f..30489c0 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: util.test,v 1.18.8.1 2008/08/17 14:12:36 msofer Exp $
+# RCS: @(#) $Id: util.test,v 1.18.8.2 2008/10/14 15:55:58 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -15,6 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
}
testConstraint testdstring [llength [info commands testdstring]]
+testConstraint testconcatobj [llength [info commands testconcatobj]]
# Big test for correct ordering of data in [expr]
@@ -163,7 +164,7 @@ test util-4.6 {Tcl_ConcatObj - utf-8 sequence with "whitespace" char} {
# Check for Bug #227512. If this violates C isspace, then it returns \xc3.
concat \xe0
} \xe0
-test util-4.7 {Tcl_ConcatObj - refCount safety} {
+test util-4.7 {Tcl_ConcatObj - refCount safety} testconcatobj {
# Check for Bug #1447328 (actually, bugs in its original "fix"). One of the
# symptoms was Bug #2055782.
testconcatobj