diff options
| author | hobbs <hobbs> | 2003-02-11 18:46:33 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-02-11 18:46:33 (GMT) |
| commit | 6f8411efbe39aa9209e60b463eb1faf7d4c81835 (patch) | |
| tree | 093f807215c08fea2db4d8d35390f43d4377cb69 /tests | |
| parent | 510815200ad3a5a5f455dc224faef6614393190f (diff) | |
| download | tcl-6f8411efbe39aa9209e60b463eb1faf7d4c81835.zip tcl-6f8411efbe39aa9209e60b463eb1faf7d4c81835.tar.gz tcl-6f8411efbe39aa9209e60b463eb1faf7d4c81835.tar.bz2 | |
correct test names
Diffstat (limited to 'tests')
| -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 |