summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authorstanton <stanton>1999-06-10 04:28:49 (GMT)
committerstanton <stanton>1999-06-10 04:28:49 (GMT)
commit81e8aa10e3e8c90c32e241356ce9bc68b5e4b3dc (patch)
treed6b1bb3e195e2ca1b7f57a6a2987c276d5013ffa /tests/string.test
parentd94b3c0f6b26564b83b3767980271dd332314d06 (diff)
downloadtcl-81e8aa10e3e8c90c32e241356ce9bc68b5e4b3dc.zip
tcl-81e8aa10e3e8c90c32e241356ce9bc68b5e4b3dc.tar.gz
tcl-81e8aa10e3e8c90c32e241356ce9bc68b5e4b3dc.tar.bz2
* generic/tclUnicodeObj.c: Lots of cleanup and simplification.
Fixed several memory bugs. Added TclAppendUnicodeToObj. * generic/tclInt.h: Added declarations for various Unicode string functions. * generic/tclRegexp.c: * generic/tclCmdMZ.c: Changed to use new Unicode string interfaces for better performance. * generic/tclRegexp.h: * generic/tclRegexp.c: * generic/tcl.h: * generic/tcl.decls: Added Tcl_RegExpMatchObj and Tcl_RegExpGetInfo calls to access lower level regexp API. These features are needed by Expect. This is a preliminary implementation pending final review and cleanup. * generic/tclCmdMZ.c: * tests/string.test: Fixed bug where string map failed on null strings.
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/string.test b/tests/string.test
index 235dba8..5200b48 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.12 1999/06/08 02:59:28 hershey Exp $
+# RCS: @(#) $Id: string.test,v 1.13 1999/06/10 04:28:52 stanton Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -648,6 +648,9 @@ test string-10.12 {string map, unicode} {
test string-10.13 {string map, -nocase unicode} {
string map -nocase [list \374 ue UE \334] "a\374ueUE\000EU"
} aue\334\334\0EU
+test string-10.14 {string map, -nocase null arguments} {
+ string map -nocase {{} abc} foo
+} foo
test string-11.1 {string match, too few args} {
list [catch {string match a} msg] $msg