summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-07-04 23:44:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-07-04 23:44:52 (GMT)
commita9e893c58a0e5894cfafd625e2f81abf139aeef6 (patch)
tree63dc746ca1f527142d104deab1b54399bfe504a4 /tests
parentdb3c2b292ae73f39fb715d242d23e1135e6c27cf (diff)
downloadtcl-a9e893c58a0e5894cfafd625e2f81abf139aeef6.zip
tcl-a9e893c58a0e5894cfafd625e2f81abf139aeef6.tar.gz
tcl-a9e893c58a0e5894cfafd625e2f81abf139aeef6.tar.bz2
Add a little emacs magic
Diffstat (limited to 'tests')
-rw-r--r--tests/unknown.test12
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/unknown.test b/tests/unknown.test
index e4e66bf..0c8afa3 100644
--- a/tests/unknown.test
+++ b/tests/unknown.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: unknown.test,v 1.7 2004/05/19 13:05:37 dkf Exp $
+# RCS: @(#) $Id: unknown.test,v 1.8 2010/07/04 23:44:52 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -20,7 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
catch {unset 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_"}}
@@ -29,7 +29,6 @@ proc unknown {args} {
global x
set x $args
}
-
test unknown-2.1 {calling "unknown" command} {
foobar x y z
set x
@@ -55,13 +54,16 @@ test unknown-3.1 {argument quoting in calls to "unknown"} {
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}
::tcltest::cleanupTests
return
+
+# Local-Variables:
+# mode: tcl
+# End: