summaryrefslogtreecommitdiffstats
path: root/tests/utf.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-10-08 15:24:01 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-10-08 15:24:01 (GMT)
commita42251513290d3780a06067929f593ef390b835b (patch)
treee674ab5e97896b4e5de7e60b75abf5d25d460859 /tests/utf.test
parent67439c31e0b8daad697fa1da9365118083b10774 (diff)
downloadtcl-a42251513290d3780a06067929f593ef390b835b.zip
tcl-a42251513290d3780a06067929f593ef390b835b.tar.gz
tcl-a42251513290d3780a06067929f593ef390b835b.tar.bz2
Added constraint to the new tests.
Diffstat (limited to 'tests/utf.test')
-rw-r--r--tests/utf.test19
1 files changed, 10 insertions, 9 deletions
diff --git a/tests/utf.test b/tests/utf.test
index cd4803c..7e4adf0 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: utf.test,v 1.8.14.3 2003/10/08 14:21:21 dkf Exp $
+# RCS: @(#) $Id: utf.test,v 1.8.14.4 2003/10/08 15:24:01 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -58,28 +58,29 @@ test utf-2.8 {Tcl_UtfToUniChar: longer UTF sequences not supported} {
test utf-3.1 {Tcl_UtfCharComplete} {
} {}
-test utf-4.1 {Tcl_NumUtfChars: zero length} {
+testConstraint testnumutfchars [llength [info commands testnumutfchars]]
+test utf-4.1 {Tcl_NumUtfChars: zero length} testnumutfchars {
testnumutfchars ""
} {0}
-test utf-4.2 {Tcl_NumUtfChars: length 1} {
+test utf-4.2 {Tcl_NumUtfChars: length 1} testnumutfchars {
testnumutfchars [bytestring "\xC2\xA2"]
} {1}
-test utf-4.3 {Tcl_NumUtfChars: long string} {
+test utf-4.3 {Tcl_NumUtfChars: long string} testnumutfchars {
testnumutfchars [bytestring "abc\xC2\xA2\xe4\xb9\x8e\uA2\u4e4e"]
} {7}
-test utf-4.4 {Tcl_NumUtfChars: #u0000} {
+test utf-4.4 {Tcl_NumUtfChars: #u0000} testnumutfchars {
testnumutfchars [bytestring "\xC0\x80"]
} {1}
-test utf-4.5 {Tcl_NumUtfChars: zero length, calc len} {
+test utf-4.5 {Tcl_NumUtfChars: zero length, calc len} testnumutfchars {
testnumutfchars "" 1
} {0}
-test utf-4.6 {Tcl_NumUtfChars: length 1, calc len} {
+test utf-4.6 {Tcl_NumUtfChars: length 1, calc len} testnumutfchars {
testnumutfchars [bytestring "\xC2\xA2"] 1
} {1}
-test utf-4.7 {Tcl_NumUtfChars: long string, calc len} {
+test utf-4.7 {Tcl_NumUtfChars: long string, calc len} testnumutfchars {
testnumutfchars [bytestring "abc\xC2\xA2\xe4\xb9\x8e\uA2\u4e4e"] 1
} {7}
-test utf-4.8 {Tcl_NumUtfChars: #u0000, calc len} {
+test utf-4.8 {Tcl_NumUtfChars: #u0000, calc len} testnumutfchars {
testnumutfchars [bytestring "\xC0\x80"] 1
} {1}