diff options
Diffstat (limited to 'tests/winDde.test')
| -rw-r--r-- | tests/winDde.test | 17 |
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 |