summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/namespace-old.test9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index b912dda..0fadd1f 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: namespace-old.test,v 1.8 2004/05/19 12:45:49 dkf Exp $
+# RCS: @(#) $Id: namespace-old.test,v 1.9 2004/08/27 14:39:14 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -527,11 +527,12 @@ test namespace-old-6.16 {public variables affect all parent namespaces} {
} {{cache2 version} {cache2 version}}
test namespace-old-6.17 {usage for "namespace which"} {
- list [catch "namespace which -baz" msg] $msg
+ list [catch "namespace which -baz x" msg] $msg
} {1 {wrong # args: should be "namespace which ?-command? ?-variable? name"}}
test namespace-old-6.18 {usage for "namespace which"} {
- list [catch "namespace which -command" msg] $msg
-} {1 {wrong # args: should be "namespace which ?-command? ?-variable? name"}}
+ # Presume no imported command called -command ;^)
+ namespace which -command
+} {}
test namespace-old-6.19 {querying: namespace which -command} {
proc test_ns_cache1::test_ns_cache_cmd {} {