diff options
author | fvogel <fvogelnew1@free.fr> | 2018-05-01 10:46:30 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-05-01 10:46:30 (GMT) |
commit | 585873022c482ebcaf02d193c1ae7115fd3588d9 (patch) | |
tree | 28f157a4a916c97e97de3f2775607188aac3afa9 /tests | |
parent | 662b392ffcd5fbad21607d814e3e9e4f39393c54 (diff) | |
download | tk-585873022c482ebcaf02d193c1ae7115fd3588d9.zip tk-585873022c482ebcaf02d193c1ae7115fd3588d9.tar.gz tk-585873022c482ebcaf02d193c1ae7115fd3588d9.tar.bz2 |
Fix msgbox.test expected results when running on macOS
Diffstat (limited to 'tests')
-rw-r--r-- | tests/msgbox.test | 32 |
1 files changed, 19 insertions, 13 deletions
diff --git a/tests/msgbox.test b/tests/msgbox.test index 643ae2c..c1a4765 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -11,12 +11,18 @@ tcltest::loadTestedCommands namespace import -force tcltest::test -test msgbox-1.1 {tk_messageBox command} -body { +test msgbox-1.1.1 {tk_messageBox command} -constraints notAqua -body { tk_messageBox -foo } -returnCodes error -result {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type} -test msgbox-1.2 {tk_messageBox command} -body { +test msgbox-1.1.2 {tk_messageBox command} -constraints notAqua -body { + tk_messageBox -foo +} -returnCodes error -result {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, -type, or -command} +test msgbox-1.2.1 {tk_messageBox command} -constraints notAqua -body { tk_messageBox -foo bar } -returnCodes error -result {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type} +test msgbox-1.2.2 {tk_messageBox command} -constraints aqua -body { + tk_messageBox -foo bar +} -returnCodes error -result {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, -type, or -command} test msgbox-1.3 {tk_messageBox command} -body { tk_messageBox -default @@ -46,32 +52,32 @@ test msgbox-1.10 {tk_messageBox command} -body { test msgbox-1.11 {tk_messageBox command} -body { tk_messageBox -type foo -} -returnCodes error -result {bad -type value "foo": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel} +} -returnCodes error -result {bad value "foo": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel} -test msgbox-1.12 {tk_messageBox command} -constraints unix -body { +test msgbox-1.12 {tk_messageBox command} -constraints x11 -body { tk_messageBox -default 1.1 } -returnCodes error -result {invalid default button "1.1"} -test msgbox-1.13 {tk_messageBox command} -constraints macOrWin -body { +test msgbox-1.13 {tk_messageBox command} -constraints aquaOrWin32 -body { tk_messageBox -default 1.1 -} -returnCodes error -result {bad -default value "1.1": must be abort, retry, ignore, ok, cancel, no, or yes} +} -returnCodes error -result {bad value "1.1": must be abort, retry, ignore, ok, cancel, yes, or no} -test msgbox-1.14 {tk_messageBox command} -constraints unix -body { +test msgbox-1.14 {tk_messageBox command} -constraints x11 -body { tk_messageBox -default foo } -returnCodes error -result {invalid default button "foo"} -test msgbox-1.15 {tk_messageBox command} -constraints macOrWin -body { +test msgbox-1.15 {tk_messageBox command} -constraints aquaOrWin32 -body { tk_messageBox -default foo -} -returnCodes error -result {bad -default value "foo": must be abort, retry, ignore, ok, cancel, no, or yes} +} -returnCodes error -result {bad value "foo": must be abort, retry, ignore, ok, cancel, yes, or no} -test msgbox-1.16 {tk_messageBox command} -constraints unix -body { +test msgbox-1.16 {tk_messageBox command} -constraints x11 -body { tk_messageBox -type yesno -default 3 } -returnCodes error -result {invalid default button "3"} -test msgbox-1.17 {tk_messageBox command} -constraints macOrWin -body { +test msgbox-1.17 {tk_messageBox command} -constraints aquaOrWin32 -body { tk_messageBox -type yesno -default 3 -} -returnCodes error -result {bad -default value "3": must be abort, retry, ignore, ok, cancel, no, or yes} +} -returnCodes error -result {bad value "3": must be abort, retry, ignore, ok, cancel, yes, or no} test msgbox-1.18 {tk_messageBox command} -body { tk_messageBox -icon foo -} -returnCodes error -result {bad -icon value "foo": must be error, info, question, or warning} +} -returnCodes error -result {bad value "foo": must be error, info, question, or warning} test msgbox-1.19 {tk_messageBox command} -body { tk_messageBox -parent foo.bar } -returnCodes error -result {bad window path name "foo.bar"} |