summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-02-11 18:35:05 (GMT)
committerhobbs <hobbs>2003-02-11 18:35:05 (GMT)
commit510815200ad3a5a5f455dc224faef6614393190f (patch)
tree8df742aebb536b43e35b6ea5e22eb4ced15d0634 /tests
parent67d73535aad14b1646571c25e82db621225bbace (diff)
downloadtcl-510815200ad3a5a5f455dc224faef6614393190f.zip
tcl-510815200ad3a5a5f455dc224faef6614393190f.tar.gz
tcl-510815200ad3a5a5f455dc224faef6614393190f.tar.bz2
* tests/stringObj.test:
* generic/tclStringObj.c (Tcl_GetCharLength): correct ascii char opt of 2002-11-11 to not stop early on \x00. [Bug #684699]
Diffstat (limited to 'tests')
-rw-r--r--tests/stringObj.test21
1 files changed, 8 insertions, 13 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test
index b27557d..408bb70 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: stringObj.test,v 1.13 2003/01/17 14:19:54 vincentdarley Exp $
+# RCS: @(#) $Id: stringObj.test,v 1.14 2003/02/11 18:35:12 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -414,6 +414,13 @@ test stringObj-13.6 {Tcl_GetCharLength with mixed width chars} {
set a "\u00EFa\u00BFb\u00AEc\u00EF\u00BFd\u00AE"
list [string length $a] [string length $a]
} {10 10}
+test encoding-14.2 {Tcl_GetCharLength with identity nulls} {
+ # SF bug #684699
+ string length [encoding convertfrom identity \x00]
+} 1
+test encoding-14.2 {Tcl_GetCharLength with identity nulls} {
+ string length [encoding convertfrom identity \x01\x00\x02]
+} 3
test stringObj-14.1 {Tcl_SetObjLength on pure unicode object} {
teststringobj set 1 foo
@@ -431,15 +438,3 @@ testobj freeallvars
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-