diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-11-14 14:17:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-11-14 14:17:57 (GMT) |
| commit | d7b5cde35f263aac98a4bdfbfa76afde358476d8 (patch) | |
| tree | 0e7016b90c2738fb26d151846364e29195df0c99 /tests/package.test | |
| parent | a92e1c508f2c11fcf75e0c64fe3407777fdc6a98 (diff) | |
| parent | ba9e81068ee1511c522e2662c836ccd697502854 (diff) | |
| download | tcl-d7b5cde35f263aac98a4bdfbfa76afde358476d8.zip tcl-d7b5cde35f263aac98a4bdfbfa76afde358476d8.tar.gz tcl-d7b5cde35f263aac98a4bdfbfa76afde358476d8.tar.bz2 | |
[5d6de65036] [package require] with [package prefer stable] was not choosing available stable package.
Diffstat (limited to 'tests/package.test')
| -rw-r--r-- | tests/package.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/package.test b/tests/package.test index da778f1..74415ae 100644 --- a/tests/package.test +++ b/tests/package.test @@ -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 |