From 6f8411efbe39aa9209e60b463eb1faf7d4c81835 Mon Sep 17 00:00:00 2001 From: hobbs Date: Tue, 11 Feb 2003 18:46:33 +0000 Subject: correct test names --- tests/stringObj.test | 6 +++--- 1 file 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 -- cgit v0.12