diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:47:21 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:47:21 (GMT) |
commit | 5514e37335c012cc70f5b9aee3cedfe3d57f583f (patch) | |
tree | 4ba7d8aad13735e52f59bdce7ca5ba3151ebd7e3 /tcl8.6/tests/concat.test | |
parent | 768f87f613cc9789fcf8073018fa02178c8c91df (diff) | |
download | blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.zip blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.tar.gz blt-5514e37335c012cc70f5b9aee3cedfe3d57f583f.tar.bz2 |
undo subtree
Diffstat (limited to 'tcl8.6/tests/concat.test')
-rw-r--r-- | tcl8.6/tests/concat.test | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/tcl8.6/tests/concat.test b/tcl8.6/tests/concat.test deleted file mode 100644 index eeb11ca..0000000 --- a/tcl8.6/tests/concat.test +++ /dev/null @@ -1,57 +0,0 @@ -# Commands covered: concat -# -# 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 (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. - -if {"::tcltest" ni [namespace children]} { - package require tcltest - namespace import -force ::tcltest::* -} - -test concat-1.1 {simple concatenation} { - concat a b c d e f g -} {a b c d e f g} -test concat-1.2 {merging lists together} { - concat a {b c d} {e f g h} -} {a b c d e f g h} -test concat-1.3 {merge lists, retain sub-lists} { - concat a {b {c d}} {{e f}} g h -} {a b {c d} {e f} g h} -test concat-1.4 {special characters} { - concat a\{ {b \{c d} \{d -} "a{ b \\{c d {d" - -test concat-2.1 {error: one empty argument} { - concat {} -} {} - -test concat-3.1 {error: no arguments} { - list [catch concat msg] $msg -} {0 {}} - -test concat-4.1 {pruning off extra white space} { - concat {} {a b c} -} {a b c} -test concat-4.2 {pruning off extra white space} { - concat x y " a b c \n\t " " " " def " -} {x y a b c def} -test concat-4.3 {pruning off extra white space sets length correctly} { - llength [concat { {{a}} }] -} 1 - -# cleanup -::tcltest::cleanupTests -return - -# Local Variables: -# mode: tcl -# fill-column: 78 -# End: |