summaryrefslogtreecommitdiffstats
path: root/tests/unknown.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unknown.test')
-rw-r--r--tests/unknown.test22
1 files changed, 10 insertions, 12 deletions
diff --git a/tests/unknown.test b/tests/unknown.test
index e4e66bf..e80d3a6 100644
--- a/tests/unknown.test
+++ b/tests/unknown.test
@@ -10,17 +10,13 @@
#
# 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 $
-if {[lsearch [namespace children] ::tcltest] == -1} {
- package require tcltest
- namespace import -force ::tcltest::*
-}
+package require tcltest 2
+namespace import ::tcltest::*
-catch {unset x}
+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_"}}
@@ -29,7 +25,6 @@ proc unknown {args} {
global x
set x $args
}
-
test unknown-2.1 {calling "unknown" command} {
foobar x y z
set x
@@ -55,13 +50,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
+cleanupTests
return
+
+# Local Variables:
+# mode: tcl
+# End: