diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-30 10:44:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-30 10:44:39 (GMT) |
| commit | 4409afbad7d1d65061c9ae270c3cd589c7230ebb (patch) | |
| tree | c9e7c2a58b42357bd755c47a59b7c78488198170 /tests/winDde.test | |
| parent | 578b0e8089d87e37268eaa1f52627d7e51b3ceab (diff) | |
| download | tcl-4409afbad7d1d65061c9ae270c3cd589c7230ebb.zip tcl-4409afbad7d1d65061c9ae270c3cd589c7230ebb.tar.gz tcl-4409afbad7d1d65061c9ae270c3cd589c7230ebb.tar.bz2 | |
Add checks whether we are testing the right dll's
Diffstat (limited to 'tests/winDde.test')
| -rw-r--r-- | tests/winDde.test | 5 |
1 files changed, 4 insertions, 1 deletions
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] |