summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/registry.test3
-rw-r--r--tests/winDde.test5
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]