summaryrefslogtreecommitdiffstats
path: root/tests/pkg.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/pkg.test')
-rw-r--r--tests/pkg.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/pkg.test b/tests/pkg.test
index 1d94cb3..4f92d4c 100644
--- a/tests/pkg.test
+++ b/tests/pkg.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: pkg.test,v 1.30 2008/07/13 23:15:21 nijtmans Exp $
+# RCS: @(#) $Id: pkg.test,v 1.31 2008/07/19 22:50:39 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -525,7 +525,7 @@ test pkg-2.52 {Tcl_PkgRequire procedure, picking best stable version} {
test pkg-3.1 {Tcl_PackageCmd procedure} {
list [catch {package} msg] $msg
-} {1 {wrong # args: should be "package option ?arg arg ...?"}}
+} {1 {wrong # args: should be "package option ?arg ...?"}}
test pkg-3.2 {Tcl_PackageCmd procedure, "forget" option} {
foreach i [package names] {
package forget $i
@@ -735,7 +735,7 @@ test pkg-3.46 {Tcl_PackageCmd procedure, "versions" option} {
} {2.3 2.4}
test pkg-3.47 {Tcl_PackageCmd procedure, "vsatisfies" option} {
list [catch {package vsatisfies a} msg] $msg
-} {1 {wrong # args: should be "package vsatisfies version requirement requirement..."}}
+} {1 {wrong # args: should be "package vsatisfies version ?requirement ...?"}}
test pkg-3.49 {Tcl_PackageCmd procedure, "vsatisfies" option} {
list [catch {package vsatisfies x.y 3.4} msg] $msg