diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2005-01-05 10:34:08 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2005-01-05 10:34:08 (GMT) |
| commit | dbb868b2ed93f4229fddb78331e78b9fbb5b844a (patch) | |
| tree | 221d1b4f33ffb9ccb4d9aac93c48b66776e6ba06 /tests | |
| parent | 4d2e9ad7cbd5bede0e377096647e7fa3e416d947 (diff) | |
| download | tcl-dbb868b2ed93f4229fddb78331e78b9fbb5b844a.zip tcl-dbb868b2ed93f4229fddb78331e78b9fbb5b844a.tar.gz tcl-dbb868b2ed93f4229fddb78331e78b9fbb5b844a.tar.bz2 | |
* tests/winDde.test: Fixed broken test result.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/winDde.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winDde.test b/tests/winDde.test index d1b0ee1..66e73ed 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.26 2004/12/01 14:02:49 dkf Exp $ +# RCS: @(#) $Id: winDde.test,v 1.27 2005/01/05 10:34:08 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -219,7 +219,7 @@ test winDde-5.4 {DDE eval bad arguments} -constraints {win dde} -body { test winDde-6.1 {DDE servername bad arguments} -constraints {win dde} -body { dde servername -z -z -z -} -returnCodes error -result {unknown option "-z": should be -force, -handler or --} +} -returnCodes error -result {bad option "-z": must be -force, -handler, or --} test winDde-6.2 {DDE servername set name} -constraints {win dde} -body { dde servername -- winDde-6.2 } -result {winDde-6.2} |