Applied patch from Peter Hardie (with modifications) to fix

Tcl_GetIndexFromObj when the key is "".  Added test cases and
doc note.


FossilOrigin-Name: 4fe945f8856dd33e3452d3873bdb9dcefb3ec8dd

1 files changed, 16 insertions, 1 deletions

diff --git a/tests/winDde.test b/tests/winDde.test
index b734f82..67c9c83 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.5 1999/06/28 18:23:21 redman Exp $
+# RCS: @(#) $Id: winDde.test,v 1.6 1999/06/28 23:49:32 redman Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -145,6 +145,21 @@ test winDde-4.4 {DDE eval locally} {pcOnly} {
     set a
 } foo
 
+test winDde-5.1 {check for bad arguments} {} {
+    catch {dde execute "" "" "" ""} result
+    set result
+} {wrong # args: should be "dde execute ?-async? serviceName topicName value"}
+
+test winDde-5.2 {check for bad arguments} {} {
+    catch {dde execute "" "" ""} result
+    set result
+} {cannot execute null data}
+
+test winDde-5.3 {check for bad arguments} {} {
+    catch {dde execute -foo "" "" ""} result
+    set result
+} {wrong # args: should be "dde execute ?-async? serviceName topicName value"}
+
 
 #cleanup
 file delete -force $::scriptName