* doc/dde.n: Committed TIP #135 which changes the

	* win/tclWinDde.c:           -exact option to -force. Also cleaned
	* tests/winDde.test:         a bug in the tests.
	* library/dde/pkgIndex.tcl:  Incremented version to 1.2.5

1 files changed, 23 insertions, 11 deletions

diff --git a/tests/winDde.test b/tests/winDde.test
index a23650d..de8dd4f 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.17 2003/06/23 21:27:56 patthoyts Exp $
+# RCS: @(#) $Id: winDde.test,v 1.18 2003/06/23 22:05:11 patthoyts Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -236,7 +236,7 @@ test winDde-5.4 {DDE eval bad arguments} {pcOnly} {
 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? ?-handler proc? ?--? ?serverName?"}}
+    -result {1 {wrong # args: should be "dde servername ?-force? ?-handler proc? ?--? ?serverName?"}}
 
 test winDde-6.2 {DDE servername set name} \
     -constraints pcOnly \
@@ -245,12 +245,12 @@ test winDde-6.2 {DDE servername set name} \
 
 test winDde-6.3 {DDE servername set exact name} \
     -constraints pcOnly \
-    -body {dde servername -exact winDde-6.3} \
+    -body {dde servername -force 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} \
+    -body {dde servername -force -- winDde-6.4} \
     -result {winDde-6.4}
 
 test winDde-6.5 {DDE remote servername collision} \
@@ -275,7 +275,7 @@ test winDde-6.6 {DDE remote servername collision force} \
         set child [createChildProcess $name]
     } \
     -body {
-        dde servername -exact -- $name
+        dde servername -force -- $name
     } \
     -cleanup {
         dde execute TclEval $name {set done 1}
@@ -332,7 +332,7 @@ test winDde-7.3 {DDE present in slave interp} \
     } \
     -result {{TclEval dde-interp-7.3}}
 
-test winDde-7.4 {interp name collision with -exact} \
+test winDde-7.4 {interp name collision with -force} \
     -constraints pcOnly \
     -setup {
 	interp create slave
@@ -340,14 +340,14 @@ test winDde-7.4 {interp name collision with -exact} \
 	slave eval [list dde servername -- dde-interp-7.4]
     } \
     -body {
-        dde servername -exact -- dde-interp-7.4
+        dde servername -force -- dde-interp-7.4
     } \
     -cleanup {
 	interp delete slave
     } \
     -result {dde-interp-7.4}
 
-test winDde-7.5 {interp name collision without -exact} \
+test winDde-7.5 {interp name collision without -force} \
     -constraints pcOnly \
     -setup {
 	interp create slave
@@ -546,7 +546,11 @@ test winDde-9.1 {External safe DDE check string passing} \
             set line
         } msg] $msg
     } \
-    -cleanup {dde execute TclEval $name stop ; update} \
+    -cleanup {
+        dde execute TclEval $name stop
+        update
+        file delete -force -- dde-script.tcl
+    } \
     -result {0 {set x 1}}
 
 test winDde-9.2 {External safe DDE check command evaluation} \
@@ -563,7 +567,11 @@ test winDde-9.2 {External safe DDE check command evaluation} \
             set line
         } msg] $msg
     } \
-    -cleanup {dde execute TclEval $name stop ; update} \
+    -cleanup {
+        dde execute TclEval $name stop
+        update
+        file delete -force -- dde-script.tcl
+    } \
     -result {0 1}
 
 test winDde-9.3 {External safe DDE check prefixed arguments} \
@@ -580,7 +588,11 @@ test winDde-9.3 {External safe DDE check prefixed arguments} \
             set line
         } msg] $msg
     } \
-    -cleanup {dde execute TclEval $name stop ; update} \
+    -cleanup {
+        dde execute TclEval $name stop
+        update
+        file delete -force -- dde-script.tcl
+    } \
     -result {0 {ARG {set x 1}}}
 
 # -------------------------------------------------------------------------