From dbb868b2ed93f4229fddb78331e78b9fbb5b844a Mon Sep 17 00:00:00 2001 From: patthoyts Date: Wed, 5 Jan 2005 10:34:08 +0000 Subject: * tests/winDde.test: Fixed broken test result. --- ChangeLog | 4 ++++ tests/winDde.test | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0276ff2..026f04a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-01-05 Pat Thoyts + + * tests/winDde.test: Fixed broken test result. + 2005-01-05 Donal K. Fellows * generic/tclInt.h, generic/tclPort.h: Move the #include of 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} -- cgit v0.12