diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 07:56:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 07:56:33 (GMT) |
| commit | 2c0bff630ac5b6268ce2a9a3d0fa980d28489824 (patch) | |
| tree | b2d0906304f14a10123145871582fd8e69d8c0bb /tests/winDde.test | |
| parent | a50dcb923a50640e31a433c872caa63630d8202d (diff) | |
| parent | bfd2f2fbf7a0c7fb68ded3c44b169cb5ce97c24f (diff) | |
| download | tcl-2c0bff630ac5b6268ce2a9a3d0fa980d28489824.zip tcl-2c0bff630ac5b6268ce2a9a3d0fa980d28489824.tar.gz tcl-2c0bff630ac5b6268ce2a9a3d0fa980d28489824.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/winDde.test')
| -rw-r--r-- | tests/winDde.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/winDde.test b/tests/winDde.test index 8d9bd12..9411c92 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.0b1] + set ::ddever [package require dde 1.4.0b2] 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.0b1} +} {1.4.0b2} test winDde-1.1 {Settings the server's topic name} -constraints dde -body { list [dde servername foobar] [dde servername] [dde servername self] @@ -203,8 +203,8 @@ test winDde-4.3 {DDE request remotely} -constraints {dde stdio} -body { set \xe1 "" set name ch\xEDld-4.3 set child [createChildProcess $name] - dde execute TclEval $name [list set a foo] - set \xe1 [dde request TclEval $name a] + dde execute TclEval $name [list set \xe1 foo] + set \xe1 [dde request TclEval $name \xe1] dde execute TclEval $name {set done 1} update set \xe1 |