diff options
Diffstat (limited to 'tests/split.test')
| -rw-r--r-- | tests/split.test | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/tests/split.test b/tests/split.test index e0dfc2d..f18f333 100644 --- a/tests/split.test +++ b/tests/split.test @@ -10,8 +10,6 @@ # # 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.6 2000/04/10 17:19:04 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -60,6 +58,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 @@ -69,17 +79,6 @@ test split-2.2 {split errors} { } {1 {wrong # args: should be "split string ?splitChars?"} NONE} # cleanup +catch {rename foo {}} ::tcltest::cleanupTests return - - - - - - - - - - - - |