* generic/tclPkg.c: When no requirements are supplied to a

        * tests/pkg.test:       [package require $pkg] and [package unknown]
        is invoked to find a satisfying package, pass the requirement argument
        "0-" (which means all versions are acceptable).  This permits a
        registered [package unknown] command to call
        [package vsatisfies $testVersion {*}$args] without any special
        handling of the empty $args case.  This fixes/avoids a bug in
        [::tcl::tm::UnknownHandler] that was causing old TM versions to
        be provided in preference to newer TM versions.  Thanks to Julian
        Noble for discovering the issue.

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/pkg.test b/tests/pkg.test
index 116f006..6c27e5f 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.22 2006/11/03 00:34:53 hobbs Exp $
+# RCS: @(#) $Id: pkg.test,v 1.23 2006/12/05 15:36:12 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -212,7 +212,7 @@ test pkg-2.15 {Tcl_PkgRequire procedure, "package unknown" support} {
     package require {a b}
     package unknown {}
     set x
-} {{a b}}
+} {{a b} 0-}
 test pkg-2.16 {Tcl_PkgRequire procedure, "package unknown" error} {
     proc pkgUnknown args {
 	error "testing package unknown"
@@ -227,7 +227,7 @@ test pkg-2.16 {Tcl_PkgRequire procedure, "package unknown" error} {
 "error "testing package unknown""
     (procedure "pkgUnknown" line 2)
     invoked from within
-"pkgUnknown t"
+"pkgUnknown t 0-"
     ("package unknown" script)
     invoked from within
 "package require t"}}