From 27673e171bb63ae5c243d55c936522a3913cbcc8 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 30 Jul 2012 12:51:38 +0000
Subject: Less strictness about exactly which dll versions are tested

---
 tests/fileSystem.test | 6 ++++--
 tests/registry.test   | 4 ++--
 tests/winDde.test     | 6 +++---
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 3348b7b..ae84843 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -22,8 +22,10 @@ namespace eval ::tcl::test::fileSystem {
 catch {
     ::tcltest::loadTestedCommands
     package require -exact Tcltest [info patchlevel]
-    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]
-    set ::reglib [lindex [package ifneeded registry 1.3.0] 1]
+    set ::ddever [lindex [lsort [package versions dde]] end]
+    set ::ddelib [lindex [package ifneeded dde $::ddever] 1]
+    set ::regver [lindex [lsort [package versions registry]] end]
+    set ::reglib [lindex [package ifneeded registry $::regver] 1]
 }
 
 # Test for commands defined in Tcltest executable
diff --git a/tests/registry.test b/tests/registry.test
index 8f8aa98..77588e3 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -19,7 +19,7 @@ testConstraint reg 0
 if {[testConstraint win]} {
     if {![catch {
 	    ::tcltest::loadTestedCommands
-	    package require -exact registry 1.3.0
+	    set ::regver [package require registry 1.3.0]
 	}]} {
 	testConstraint reg 1
     }
@@ -32,7 +32,7 @@ testConstraint english [expr {
 }]
 
 test registry-1.0 {check if we are testing the right dll} {win reg} {
-    package versions registry
+    set ::regver
 } {1.3.0}
 test registry-1.1 {argument parsing for registry command} {win reg} {
     list [catch {registry} msg] $msg
diff --git a/tests/winDde.test b/tests/winDde.test
index a5b9a9f..9e0b20a 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -19,8 +19,8 @@ testConstraint dde 0
 if {[testConstraint win]} {
     if {![catch {
 	    ::tcltest::loadTestedCommands
-	    package require -exact dde 1.4.0b1
-	    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]}]} {
+	    set ::ddever [package require dde 1.4.0b1]
+	    set ::ddelib [lindex [package ifneeded dde $::ddever] 1]}]} {
 	testConstraint dde 1
     }
 }
@@ -102,7 +102,7 @@ proc createChildProcess {ddeServerName args} {
 
 # -------------------------------------------------------------------------
 test winDde-1.0 {check if we are testing the right dll} {win dde} {
-    package versions dde
+    set ::ddever
 } {1.4.0b1}
 
 test winDde-1.1 {Settings the server's topic name} -constraints dde -body {
-- 
cgit v0.12