diff options
author | das <das> | 2009-06-29 14:35:01 (GMT) |
---|---|---|
committer | das <das> | 2009-06-29 14:35:01 (GMT) |
commit | 8f9b8fd63b4da5f6f27b46c438c89f2baa15f0e8 (patch) | |
tree | 81b5743d2ff5d45f2ee4992153e4f34949ea8f8a /tests | |
parent | e4a87c21cb59539eeddcc65d359e9b06d597fed3 (diff) | |
download | tk-macosx_cocoa_merge.zip tk-macosx_cocoa_merge.tar.gz tk-macosx_cocoa_merge.tar.bz2 |
Merge of TkAqua Cocoa portmacosx_cocoa_merge
Diffstat (limited to 'tests')
-rw-r--r-- | tests/dialog.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/dialog.test b/tests/dialog.test index bd8c944..82ee799 100644 --- a/tests/dialog.test +++ b/tests/dialog.test @@ -1,7 +1,7 @@ # This file is a Tcl script to test out Tk's "tk_dialog" command. # It is organized in the standard fashion for Tcl tests. # -# RCS: @(#) $Id: dialog.test,v 1.6 2008/08/03 15:28:53 aniap Exp $ +# RCS: @(#) $Id: dialog.test,v 1.7 2009/06/29 14:35:01 das Exp $ # package require tcltest 2.2 @@ -16,10 +16,10 @@ test dialog-1.2 {tk_dialog command} -body { tk_dialog foo foo foo foo foo } -returnCodes error -result {bad window path name "foo"} test dialog-1.3 {tk_dialog command} -body { - tk_dialog .d foo foo foo foo + tk_dialog .d foo foo fooBitmap foo } -cleanup { destroy .d -} -returnCodes error -result {bitmap "foo" not defined} +} -returnCodes error -result {bitmap "fooBitmap" not defined} test dialog-2.1 {tk_dialog operation} -setup { |