Add checks whether we are testing the right dll's

2 files changed, 7 insertions, 1 deletions

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]