diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | doc/dde.n | 13 | ||||
| -rw-r--r-- | tests/winDde.test | 190 |
3 files changed, 133 insertions, 74 deletions
@@ -4,6 +4,10 @@ * tests/winDde.test: for unique dde server names. Added * win/tclWinDde.c: some more tests. Fixes [Bug 219293] + * doc/dde.n: Updated documentation re TIP #130. + * tests/winDde.test: Applied patch for [Bug 738929] by KKB and + changed to new-style tests. + 2003-05-16 Kevin B. Kenny <kennykb@hippolyta> * unix/Makefile.in: Removed one excess source file tclDToA.c @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: dde.n,v 1.8 2002/06/27 22:29:08 dgp Exp $ +'\" RCS: @(#) $Id: dde.n,v 1.9 2003/05/16 22:00:47 patthoyts Exp $ '\" .so man.macros .TH dde n 1.2 dde "Tcl Bundled Packages" @@ -17,7 +17,7 @@ dde \- Execute a Dynamic Data Exchange command .sp \fBpackage require dde 1.2\fR .sp -\fBdde \fIservername\fR ?\fItopic\fR? +\fBdde \fIservername\fR ?\fI-exact\fR? ?\fI--\fR? ?\fItopic\fR? .sp \fBdde \fIexecute\fR ?\fI\-async\fR? \fIservice topic \fR?\fIdata\fR? .sp @@ -50,11 +50,16 @@ The \fBeval\fR and \fBexecute\fR commands accept the option \fB\-async\fR: The following commands are a subset of the full Dynamic Data Exchange set of commands. .TP -\fBdde servername \fR?\fItopic\fR? +\fBdde servername \fR?\fI-exact\fR? ?\fI--\fR? ?\fItopic\fR? \fBdde servername\fR registers the interpreter as a DDE server with the service name \fBTclEval\fR and the topic name specified by \fItopic\fR. If no \fItopic\fR is given, \fBdde servername\fR returns the name -of the current topic or the empty string if it is not registered as a service. +of the current topic or the empty string if it is not registered as a +service. If the given \fItopic\fR name is already in use, then a +suffix of the form ' #2' or ' #3' is appended to the name to make it +unique. The command's result will be the name actually used. The +\fI-exact\fR option is used to force registration of precisely the +given \fItopic\fR name. .TP \fBdde execute\fR ?\fI\-async\fR? \fIservice topic data\fR \fBdde execute\fR takes the \fIdata\fR and sends it to the server indicated diff --git a/tests/winDde.test b/tests/winDde.test index a1a8dab..06dab25 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: winDde.test,v 1.15 2003/05/16 17:29:49 patthoyts Exp $ +# RCS: @(#) $Id: winDde.test,v 1.16 2003/05/16 22:00:47 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -70,6 +70,7 @@ proc createChildProcess { ddeServerName } { puts $f [list dde servername $ddeServerName] puts $f { # run the server and handle final cleanup. + after 200;# give dde a chance to get going. puts ready flush stdout vwait done @@ -208,86 +209,135 @@ test winDde-5.4 {DDE eval bad arguments} {pcOnly} { # ------------------------------------------------------------------------- -test winDde-6.1 {DDE servername bad arguments} {pcOnly} { - list [catch {dde servername -z -z -z} msg] $msg -} {1 {wrong # args: should be "dde servername ?-exact? ?--? ?serverName?"}} - -test winDde-6.2 {DDE servername set name} {pcOnly} { - list [catch {dde servername -- winDde-6.2} msg] $msg -} {0 winDde-6.2} - -test winDde-6.3 {DDE servername set exact name} {pcOnly} { - list [catch {dde servername -exact winDde-6.3} msg] $msg -} {0 winDde-6.3} - -test winDde-6.4 {DDE servername set exact name} {pcOnly} { - list [catch {dde servername -exact -- winDde-6.4} msg] $msg -} {0 winDde-6.4} - -test winDde-6.5 {DDE remote servername collision} {stdio pcOnly} { - set a "" - set name child-6.5 - set child [createChildProcess $name] - list [catch { - set a [dde servername -- $name] +test winDde-6.1 {DDE servername bad arguments} \ + -constraints pcOnly \ + -body {list [catch {dde servername -z -z -z} msg] $msg} \ + -result {1 {wrong # args: should be "dde servername ?-exact? ?--? ?serverName?"}} + +test winDde-6.2 {DDE servername set name} \ + -constraints pcOnly \ + -body {dde servername -- winDde-6.2} \ + -result {winDde-6.2} + +test winDde-6.3 {DDE servername set exact name} \ + -constraints pcOnly \ + -body {dde servername -exact winDde-6.3} \ + -result {winDde-6.3} + +test winDde-6.4 {DDE servername set exact name} \ + -constraints pcOnly \ + -body {dde servername -exact -- winDde-6.4} \ + -result {winDde-6.4} + +test winDde-6.5 {DDE remote servername collision} \ + -constraints {stdio pcOnly} \ + -setup { + set name child-6.5 + set child [createChildProcess $name] + } \ + -body { + dde servername -- $name + } \ + -cleanup { dde execute TclEval $name {set done 1} update - set a - } r] $r -} {0 {child-6.5 #2}} - -test winDde-6.6 {DDE remote servername collision force} {stdio pcOnly} { - set a "" - set name child-6.6 - set child [createChildProcess $name] - list [catch { - set a [dde servername -exact -- $name] + } \ + -result "child-6.5 #2" + +test winDde-6.6 {DDE remote servername collision force} \ + -constraints {stdio pcOnly} \ + -setup { + set name child-6.6 + set child [createChildProcess $name] + } \ + -body { + dde servername -exact -- $name + } \ + -cleanup { dde execute TclEval $name {set done 1} update - set a - } r] $r -} {0 child-6.6} + } \ + -result {child-6.6} # ------------------------------------------------------------------------- -test winDde-7.1 {DDE in slave interpreter} {pcOnly} { - global slave - set name slave-7.1 - list [catch { - set slave [interp create $name] - $slave eval [list load $lib dde] - $slave eval [list dde servername $name] - } msg] $msg -} {0 slave-7.1} - -test winDde-7.2 {DDE present in slave interp} {pcOnly} { - global slave - list [catch { - dde services TclEval $slave - } msg] $msg -} [list 0 [list [list TclEval $slave]]] - -test winDde-7.3 {DDE slave servername collision force} {pcOnly} { - global slave - list [catch {dde servername -exact -- $slave} msg] $msg -} [list 0 $slave] - -test winDde-7.4 {DDE slave servername collision} {pcOnly} { - global slave - list [catch {dde servername -- $slave} msg] $msg -} [list 0 [list $slave "#2"]] - -test winDde-7.5 {DDE slave cleanup} {pcOnly} { - global slave - list [catch { - interp delete $slave +test winDde-7.1 {Load DDE in slave interpreter } \ + -constraints pcOnly \ + -setup { + interp create slave + } \ + -body { + slave eval [list load $lib dde] + slave eval [list dde servername -- dde-interp-7.1] + } \ + -cleanup { + interp delete slave + } \ + -result {dde-interp-7.1} + +test winDde-7.2 {DDE slave cleanup} \ + -constraints pcOnly \ + -setup { + interp create slave + slave eval [list load $lib dde] + slave eval [list dde servername -- dde-interp-7.5] + interp delete slave + } \ + -body { + dde services TclEval {} set s [dde services TclEval {}] - set m [list [list TclEval $slave]] + set m [list [list TclEval dde-interp-7.5]] if {[lsearch -exact $s $m] != -1} { set s } - } msg] $msg -} {0 {}} + } \ + -result {} + +test winDde-7.3 {DDE present in slave interp} \ + -constraints pcOnly \ + -setup { + interp create slave + slave eval [list load $lib dde] + slave eval [list dde servername -- dde-interp-7.3] + } \ + -body { + dde services TclEval dde-interp-7.3 + } \ + -cleanup { + interp delete slave + } \ + -result {{TclEval dde-interp-7.3}} + +test winDde-7.4 {interp name collision with -exact} \ + -constraints pcOnly \ + -setup { + interp create slave + slave eval [list load $lib dde] + slave eval [list dde servername -- dde-interp-7.4] + } \ + -body { + dde servername -exact -- dde-interp-7.4 + } \ + -cleanup { + interp delete slave + } \ + -result {dde-interp-7.4} + +test winDde-7.5 {interp name collision without -exact} \ + -constraints pcOnly \ + -setup { + interp create slave + slave eval [list load $lib dde] + slave eval [list dde servername -- dde-interp-7.5] + } \ + -body { + dde servername -- dde-interp-7.5 + } \ + -cleanup { + interp delete slave + } \ + -result "dde-interp-7.5 #2" + # ------------------------------------------------------------------------- |