diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-10-14 16:35:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-10-14 16:35:44 (GMT) |
| commit | 43adceb175b78847d4d791e54f623da29c6ef708 (patch) | |
| tree | 90a1bad9ca22497e9f01dac4ffb020a22b85d4df /tests/util.test | |
| parent | 1a78806e6a2ff9b872b9462b68b37ebf2cb88472 (diff) | |
| download | tcl-43adceb175b78847d4d791e54f623da29c6ef708.zip tcl-43adceb175b78847d4d791e54f623da29c6ef708.tar.gz tcl-43adceb175b78847d4d791e54f623da29c6ef708.tar.bz2 | |
add missing constraints
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/util.test b/tests/util.test index 61e0fff..994fc0f 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.19 2008/08/17 14:15:26 msofer Exp $ +# RCS: @(#) $Id: util.test,v 1.20 2008/10/14 16:35:44 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 |