diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-25 20:45:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-25 20:45:45 (GMT) |
commit | bf1382a38f16c8a562dd89acb6c487739ba6d0fb (patch) | |
tree | 7b79680585167aa56e6357edfc29ae099fb3dacd /tests | |
parent | 152c7b494455fe4669dc71e800cf6c665327471e (diff) | |
parent | 6362d5ced5f043f81326f06aa2ba4246a7274ed1 (diff) | |
download | tcl-bf1382a38f16c8a562dd89acb6c487739ba6d0fb.zip tcl-bf1382a38f16c8a562dd89acb6c487739ba6d0fb.tar.gz tcl-bf1382a38f16c8a562dd89acb6c487739ba6d0fb.tar.bz2 |
Merge trunk
Diffstat (limited to 'tests')
-rw-r--r-- | tests/registry.test | 4 | ||||
-rw-r--r-- | tests/winDde.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/registry.test b/tests/registry.test index 539ba2d..86f4ef3 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -19,7 +19,7 @@ testConstraint reg 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::regver [package require registry 1.3.3] + set ::regver [package require registry 1.3.4] }]} { testConstraint reg 1 } @@ -33,7 +33,7 @@ testConstraint english [expr { test registry-1.0 {check if we are testing the right dll} {win reg} { set ::regver -} {1.3.3} +} {1.3.4} 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 1fa7e86..412c476 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -20,7 +20,7 @@ testConstraint dde 0 if {[testConstraint win]} { if {![catch { ::tcltest::loadTestedCommands - set ::ddever [package require dde 1.4.1] + set ::ddever [package require dde 1.4.2] set ::ddelib [lindex [package ifneeded dde $::ddever] 1]}]} { testConstraint dde 1 } @@ -104,7 +104,7 @@ proc createChildProcess {ddeServerName args} { # ------------------------------------------------------------------------- test winDde-1.0 {check if we are testing the right dll} {win dde} { set ::ddever -} {1.4.1} +} {1.4.2} test winDde-1.1 {Settings the server's topic name} -constraints dde -body { list [dde servername foobar] [dde servername] [dde servername self] |