diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:13:18 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-12-21 22:13:18 (GMT) |
commit | 07e464099b99459d0a37757771791598ef3395d9 (patch) | |
tree | 4ba7d8aad13735e52f59bdce7ca5ba3151ebd7e3 /tcl8.6/tests/unknown.test | |
parent | deb3650e37f26f651f280e480c4df3d7dde87bae (diff) | |
download | blt-07e464099b99459d0a37757771791598ef3395d9.zip blt-07e464099b99459d0a37757771791598ef3395d9.tar.gz blt-07e464099b99459d0a37757771791598ef3395d9.tar.bz2 |
new subtree for tcl/tk
Diffstat (limited to 'tcl8.6/tests/unknown.test')
-rw-r--r-- | tcl8.6/tests/unknown.test | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/tcl8.6/tests/unknown.test b/tcl8.6/tests/unknown.test deleted file mode 100644 index e80d3a6..0000000 --- a/tcl8.6/tests/unknown.test +++ /dev/null @@ -1,65 +0,0 @@ -# Commands covered: unknown -# -# 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 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. - -package require tcltest 2 -namespace import ::tcltest::* - -unset -nocomplain x -catch {rename unknown unknown.old} - -test unknown-1.1 {non-existent "unknown" command} { - list [catch {_non-existent_ foo bar} msg] $msg -} {1 {invalid command name "_non-existent_"}} - -proc unknown {args} { - global x - set x $args -} -test unknown-2.1 {calling "unknown" command} { - foobar x y z - set x -} {foobar x y z} -test unknown-2.2 {calling "unknown" command with lots of args} { - foobar 1 2 3 4 5 6 7 - set x -} {foobar 1 2 3 4 5 6 7} -test unknown-2.3 {calling "unknown" command with lots of args} { - foobar 1 2 3 4 5 6 7 8 - set x -} {foobar 1 2 3 4 5 6 7 8} -test unknown-2.4 {calling "unknown" command with lots of args} { - foobar 1 2 3 4 5 6 7 8 9 - set x -} {foobar 1 2 3 4 5 6 7 8 9} - -test unknown-3.1 {argument quoting in calls to "unknown"} { - foobar \{ \} a\{b \; "\\" \$a a\[b \] - set x -} "foobar \\{ \\} a\\{b {;} \\\\ {\$a} {a\[b} \\]" - -proc unknown args { - error "unknown failed" -} -test unknown-4.1 {errors in "unknown" procedure} { - list [catch {non-existent a b} msg] $msg $errorCode -} {1 {unknown failed} NONE} - -# cleanup -catch {rename unknown {}} -catch {rename unknown.old unknown} -cleanupTests -return - -# Local Variables: -# mode: tcl -# End: |