From 4409afbad7d1d65061c9ae270c3cd589c7230ebb Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 30 Jul 2012 10:44:39 +0000
Subject: Add checks whether we are testing the right dll's

---
 tests/registry.test | 3 +++
 tests/winDde.test   | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/tests/registry.test b/tests/registry.test
index 71d1fad..7881e82 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -31,6 +31,9 @@ testConstraint english [expr {
     && [string match "English*" [testlocale all ""]]
 }]
 
+test registry-1.0 {check if we are testing the right dll} {win reg} {
+    package versions registry
+} {1.3.0}
 test registry-1.1 {argument parsing for registry command} {win reg} {
     list [catch {registry} msg] $msg
 } {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}}
diff --git a/tests/winDde.test b/tests/winDde.test
index b73f665..a5b9a9f 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -19,7 +19,7 @@ testConstraint dde 0
 if {[testConstraint win]} {
     if {![catch {
 	    ::tcltest::loadTestedCommands
-	    package require dde 1.4.0b1
+	    package require -exact dde 1.4.0b1
 	    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]}]} {
 	testConstraint dde 1
     }
@@ -101,6 +101,9 @@ proc createChildProcess {ddeServerName args} {
 }
 
 # -------------------------------------------------------------------------
+test winDde-1.0 {check if we are testing the right dll} {win dde} {
+    package versions dde
+} {1.4.0b1}
 
 test winDde-1.1 {Settings the server's topic name} -constraints dde -body {
     list [dde servername foobar] [dde servername] [dde servername self]
-- 
cgit v0.12