Import Tcl-code 8.6.8
This commit is contained in:
@@ -599,6 +599,16 @@ test package-3.52 {Tcl_PkgRequire procedure, picking best stable version} -setup
|
||||
package require t
|
||||
return $x
|
||||
} -result {1.3}
|
||||
test pkg-3.53 {Tcl_PkgRequire procedure, picking best stable version} {
|
||||
package forget t
|
||||
foreach i {1.2b1 1.1} {
|
||||
package ifneeded t $i "set x $i; package provide t $i"
|
||||
}
|
||||
set x xxx
|
||||
package require t
|
||||
set x
|
||||
} {1.1}
|
||||
|
||||
|
||||
test package-4.1 {Tcl_PackageCmd procedure} -returnCodes error -body {
|
||||
package
|
||||
|
||||
Reference in New Issue
Block a user