diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/binary.test | 7 | ||||
| -rw-r--r-- | tests/winDde.test | 17 |
2 files changed, 22 insertions, 2 deletions
diff --git a/tests/binary.test b/tests/binary.test index c890f4e..a44da4d 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: binary.test,v 1.5 1999/06/26 03:54:10 jenn Exp $ +# RCS: @(#) $Id: binary.test,v 1.6 1999/06/28 23:49:31 redman Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1456,6 +1456,11 @@ test binary-41.8 {ScanNumber: word alignment} {nonPortable pcOnly} { list [binary scan \x01\x9a\x99\x99\x99\x99\x99\xf9\x3f c1d1 arg1 arg2] $arg1 $arg2 } {2 1 1.6} +test binary-42.1 {Tcl_BinaryObjCmd: bad arguments} {} { + catch {binary ""} result + set result +} {bad option "": must be format or scan} + # cleanup ::tcltest::cleanupTests return 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 |