summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 12:51:38 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 12:51:38 (GMT)
commit27673e171bb63ae5c243d55c936522a3913cbcc8 (patch)
tree167c021b91f2a1ee566d8c6e0038fe11576d9a16
parent6f401c3e624c251bbe6f116a38dc1ac035318c29 (diff)
downloadtcl-27673e171bb63ae5c243d55c936522a3913cbcc8.zip
tcl-27673e171bb63ae5c243d55c936522a3913cbcc8.tar.gz
tcl-27673e171bb63ae5c243d55c936522a3913cbcc8.tar.bz2
Less strictness about exactly which dll versions are tested
-rw-r--r--tests/fileSystem.test6
-rw-r--r--tests/registry.test4
-rw-r--r--tests/winDde.test6
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 {