diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-08-27 14:39:14 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-08-27 14:39:14 (GMT) |
| commit | 0a024e8b7bb168a944277a4a466e71823d9bd9ad (patch) | |
| tree | fb40a8960c7a7e377e8b52a5b7f9ceb042e85dd4 /tests | |
| parent | ed3d330d86447c20841d39a0f0e0e57a2bad3ecd (diff) | |
| download | tcl-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.test | 9 |
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 {} { |