diff options
author | hobbs <hobbs@noemail.net> | 2003-02-11 18:46:33 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2003-02-11 18:46:33 (GMT) |
commit | 65ec07198357ac17900a77b1cd52fdafbb8da717 (patch) | |
tree | 093f807215c08fea2db4d8d35390f43d4377cb69 /tests/stringObj.test | |
parent | 14179fb4eae5973107715a28f57e605c4d322cbe (diff) | |
download | tcl-65ec07198357ac17900a77b1cd52fdafbb8da717.zip tcl-65ec07198357ac17900a77b1cd52fdafbb8da717.tar.gz tcl-65ec07198357ac17900a77b1cd52fdafbb8da717.tar.bz2 |
correct test names
FossilOrigin-Name: 03be579296f9a67cb7ea3704923e791a9d094c5d
Diffstat (limited to 'tests/stringObj.test')
-rw-r--r-- | tests/stringObj.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index 408bb70..e3bdbee 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.14 2003/02/11 18:35:12 hobbs Exp $ +# RCS: @(#) $Id: stringObj.test,v 1.15 2003/02/11 18:46:33 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -414,11 +414,11 @@ 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} { +test stringObj-13.7 {Tcl_GetCharLength with identity nulls} { # SF bug #684699 string length [encoding convertfrom identity \x00] } 1 -test encoding-14.2 {Tcl_GetCharLength with identity nulls} { +test stringObj-13.8 {Tcl_GetCharLength with identity nulls} { string length [encoding convertfrom identity \x01\x00\x02] } 3 |