Fix old tests to check [namespace which] sanely...

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 {} {