diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-24 21:23:22 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-24 21:23:22 (GMT) |
| commit | aef230b203d5d95f488005e683775945ee4bf523 (patch) | |
| tree | 26e4be23b11829f6c0b64418ee5a68e743886828 /tests | |
| parent | 31e58abb93b8beb200285944ab8c56929d4e6383 (diff) | |
| download | tk-aef230b203d5d95f488005e683775945ee4bf523.zip tk-aef230b203d5d95f488005e683775945ee4bf523.tar.gz tk-aef230b203d5d95f488005e683775945ee4bf523.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 |