From 0a024e8b7bb168a944277a4a466e71823d9bd9ad Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 27 Aug 2004 14:39:14 +0000 Subject: Fix old tests to check [namespace which] sanely... --- tests/namespace-old.test | 9 +++++---- 1 file 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 {} { -- cgit v0.12