diff options
Diffstat (limited to 'tests/split.test')
| -rw-r--r-- | tests/split.test | 48 |
1 files changed, 19 insertions, 29 deletions
diff --git a/tests/split.test b/tests/split.test index a34c49d..f18f333 100644 --- a/tests/split.test +++ b/tests/split.test @@ -1,21 +1,21 @@ # Commands covered: split # -# This file contains a collection of tests for one or more of the Tcl built-in -# commands. Sourcing this file into Tcl runs the tests and generates output -# for errors. No output means no errors were found. +# This file contains a collection of tests for one or more of the Tcl +# built-in commands. Sourcing this file into Tcl runs the tests and +# generates output for errors. No output means no errors were found. # -# Copyright © 1991-1993 The Regents of the University of California. -# Copyright © 1994-1996 Sun Microsystems, Inc. -# Copyright © 1998-1999 Scriptics Corporation. +# Copyright (c) 1991-1993 The Regents of the University of California. +# Copyright (c) 1994-1996 Sun Microsystems, Inc. +# Copyright (c) 1998-1999 by Scriptics Corporation. # -# See the file "license.terms" for information on usage and redistribution of -# this file, and for a DISCLAIMER OF ALL WARRANTIES. +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -if {"::tcltest" ni [namespace children]} { - package require tcltest 2.5 +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest namespace import -force ::tcltest::* } - + test split-1.1 {basic split commands} { split "a\n b\t\r c\n " } {a {} b {} {} c {} {}} @@ -43,26 +43,26 @@ test split-1.8 {basic split commands} { foreach f [split {]\n} {}] { append x $f } - return $x + return $x } foo } {]\n} test split-1.9 {basic split commands} { proc foo {} { - set x ab\x00c + set x ab\000c set y [split $x {}] return $y } foo -} "a b \x00 c" +} "a b \000 c" test split-1.10 {basic split commands} { - split "a0ab1b2bbb3\x00c4" ab\x00c + 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 "\x01ab\x01cd\x01\x01ef\x01" \x01 + split "\u0001ab\u0001cd\u0001\u0001ef\u0001" \1 } {{} ab cd {} ef {}} test split-1.13 {basic split commands} { split "12,34,56," {,} @@ -70,25 +70,15 @@ test split-1.13 {basic split commands} { test split-1.14 {basic split commands} { split ",12,,,34,56," {,} } {{} 12 {} {} 34 56 {}} -test split-1.15 {basic split commands} -body { - split "a💩b" {} -} -result "a 💩 b" -test split-1.16 {basic split commands} -body { - split "a💩b" 💩 -} -result "a b" test split-2.1 {split errors} { list [catch split msg] $msg $errorCode -} {1 {wrong # args: should be "split string ?splitChars?"} {TCL WRONGARGS}} +} {1 {wrong # args: should be "split string ?splitChars?"} NONE} test split-2.2 {split errors} { list [catch {split a b c} msg] $msg $errorCode -} {1 {wrong # args: should be "split string ?splitChars?"} {TCL WRONGARGS}} - +} {1 {wrong # args: should be "split string ?splitChars?"} NONE} + # cleanup catch {rename foo {}} ::tcltest::cleanupTests return - -# Local Variables: -# mode: tcl -# End: |