summaryrefslogtreecommitdiffstats
path: root/tests/dialog.test
diff options
context:
space:
mode:
authordas <das>2009-06-29 14:35:01 (GMT)
committerdas <das>2009-06-29 14:35:01 (GMT)
commit8f9b8fd63b4da5f6f27b46c438c89f2baa15f0e8 (patch)
tree81b5743d2ff5d45f2ee4992153e4f34949ea8f8a /tests/dialog.test
parente4a87c21cb59539eeddcc65d359e9b06d597fed3 (diff)
downloadtk-8f9b8fd63b4da5f6f27b46c438c89f2baa15f0e8.zip
tk-8f9b8fd63b4da5f6f27b46c438c89f2baa15f0e8.tar.gz
tk-8f9b8fd63b4da5f6f27b46c438c89f2baa15f0e8.tar.bz2
Merge of TkAqua Cocoa portmacosx_cocoa_merge
Diffstat (limited to 'tests/dialog.test')
-rw-r--r--tests/dialog.test6
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 {