diff options
| author | hobbs <hobbs> | 2002-11-12 02:25:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-11-12 02:25:24 (GMT) |
| commit | 11acaadecced9136a82d1e9711ffc7a4d9b7090a (patch) | |
| tree | e8fff4bf4c52cfa603f4e6e7b8dac56eeacacd35 /tests | |
| parent | f9bba24db92a24f0b4fdc292d6a9d260058aac82 (diff) | |
| download | tcl-11acaadecced9136a82d1e9711ffc7a4d9b7090a.zip tcl-11acaadecced9136a82d1e9711ffc7a4d9b7090a.tar.gz tcl-11acaadecced9136a82d1e9711ffc7a4d9b7090a.tar.bz2 | |
* tests/split.test: added 1-char string split tests
* generic/tclCmdMZ.c (Tcl_SplitObjCmd): Use TclUtfToUniChar.
Also added a special case for single-ascii-char splits.
(Tcl_StringObjCmd): Use TclUtfToUniChar.
For STR_RANGE, support getting ranges of ByteArrays (reverts
change from 2000-05-26).
(TraceExecutionProc) add proper static declaration.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/split.test | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/split.test b/tests/split.test index 4dcbb00..0ad879b 100644 --- a/tests/split.test +++ b/tests/split.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: split.test,v 1.7 2001/09/12 20:28:50 dgp Exp $ +# RCS: @(#) $Id: split.test,v 1.8 2002/11/12 02:25:24 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -60,6 +60,18 @@ test split-1.9 {basic split commands} { test split-1.10 {basic split commands} { split "a0ab1b2bbb3\000c4" ab\000c } {{} 0 {} 1 2 {} {} 3 {} 4} +test split-1.11 {basic split commands} { + split "12,3,45" {,} +} {12 3 45} +test split-1.12 {basic split commands} { + split "\u0001ab\u0001cd\u0001\u0001ef\u0001" \1 +} {{} ab cd {} ef {}} +test split-1.13 {basic split commands} { + split "12,34,56," {,} +} {12 34 56 {}} +test split-1.14 {basic split commands} { + split ",12,,,34,56," {,} +} {{} 12 {} {} 34 56 {}} test split-2.1 {split errors} { list [catch split msg] $msg $errorCode |