diff options
Diffstat (limited to 'tests/config.test')
| -rw-r--r-- | tests/config.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/config.test b/tests/config.test index 8c05a7e..2023d9c 100644 --- a/tests/config.test +++ b/tests/config.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: config.test,v 1.3 2004/05/19 12:22:13 dkf Exp $ +# RCS: @(#) $Id: config.test,v 1.4 2004/10/29 15:39:10 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -35,7 +35,7 @@ test pkgconfig-1.3 {query value multiple times} { test pkgconfig-2.0 {error: missing subcommand} { catch {::tcl::pkgconfig} msg set msg -} {wrong # args: should be "list | get key"} +} {wrong # args: should be "::tcl::pkgconfig subcommand ?argument?"} test pkgconfig-2.1 {error: illegal subcommand} { catch {::tcl::pkgconfig foo} msg set msg @@ -43,11 +43,11 @@ test pkgconfig-2.1 {error: illegal subcommand} { test pkgconfig-2.2 {error: list with arguments} { catch {::tcl::pkgconfig list foo} msg set msg -} {wrong # args: should be "list"} +} {wrong # args: should be "::tcl::pkgconfig list"} test pkgconfig-2.3 {error: get without arguments} { catch {::tcl::pkgconfig get} msg set msg -} {wrong # args: should be "get key"} +} {wrong # args: should be "::tcl::pkgconfig get key"} test pkgconfig-2.4 {error: query unknown key} { catch {::tcl::pkgconfig get foo} msg set msg @@ -55,7 +55,7 @@ test pkgconfig-2.4 {error: query unknown key} { test pkgconfig-2.5 {error: query with to many arguments} { catch {::tcl::pkgconfig get foo bar} msg set msg -} {wrong # args: should be "list | get key"} +} {wrong # args: should be "::tcl::pkgconfig subcommand ?argument?"} # cleanup ::tcltest::cleanupTests |