From 22719c659625a4a57aa00294b5b02c96c51762d4 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 6 Nov 2017 00:10:21 +0000
Subject: Test case for Bug 5d65e65036.

---
 tests/pkg.test | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/pkg.test b/tests/pkg.test
index b935a3f..10b4732 100644
--- a/tests/pkg.test
+++ b/tests/pkg.test
@@ -518,6 +518,16 @@ test pkg-2.52 {Tcl_PkgRequire procedure, picking best stable version} {
     set x
 } {1.3}
 
+test pkg-2.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 pkg-3.1 {Tcl_PackageCmd procedure} {
-- 
cgit v0.12