diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-24 21:23:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-24 21:23:22 (GMT) |
| commit | 45bac8aee04c4dd04060446892e217395e216dc2 (patch) | |
| tree | 26e4be23b11829f6c0b64418ee5a68e743886828 /tests | |
| parent | ad33bd4b272e24e3beaee6168328e77fecebace4 (diff) | |
| download | tk-45bac8aee04c4dd04060446892e217395e216dc2.zip tk-45bac8aee04c4dd04060446892e217395e216dc2.tar.gz tk-45bac8aee04c4dd04060446892e217395e216dc2.tar.bz2 | |
Finish off the TIP#152 implementation with Win implementation, tests & docs.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/msgbox.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/msgbox.test b/tests/msgbox.test index 2959ccd..a351d0b 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: msgbox.test,v 1.8 2004/05/23 17:34:49 dkf Exp $ +# RCS: @(#) $Id: msgbox.test,v 1.9 2004/05/24 21:23:23 dkf Exp $ # package require tcltest 2.1 @@ -14,10 +14,10 @@ tcltest::loadTestedCommands test msgbox-1.1 {tk_messageBox command} { list [catch {tk_messageBox -foo} msg] $msg -} {1 {bad option "-foo": must be -default, -icon, -message, -parent, -title, or -type}} +} {1 {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type}} test msgbox-1.2 {tk_messageBox command} { list [catch {tk_messageBox -foo bar} msg] $msg -} {1 {bad option "-foo": must be -default, -icon, -message, -parent, -title, or -type}} +} {1 {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type}} catch {tk_messageBox -foo bar} msg regsub -all , $msg "" options |