summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-08-27 14:39:14 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-08-27 14:39:14 (GMT)
commit0a024e8b7bb168a944277a4a466e71823d9bd9ad (patch)
treefb40a8960c7a7e377e8b52a5b7f9ceb042e85dd4 /tests
parented3d330d86447c20841d39a0f0e0e57a2bad3ecd (diff)
downloadtcl-0a024e8b7bb168a944277a4a466e71823d9bd9ad.zip
tcl-0a024e8b7bb168a944277a4a466e71823d9bd9ad.tar.gz
tcl-0a024e8b7bb168a944277a4a466e71823d9bd9ad.tar.bz2
Fix old tests to check [namespace which] sanely...
Diffstat (limited to 'tests')
-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 {} {