diff options
Diffstat (limited to 'tests/dialog.test')
| -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 { |