Unify further error messages for tk_messageBox options

1 files changed, 5 insertions, 20 deletions

diff --git a/tests/msgbox.test b/tests/msgbox.test
index 023b1ef..1b84463 100644
--- a/tests/msgbox.test
+++ b/tests/msgbox.test
@@ -50,40 +50,25 @@ test msgbox-1.10 {tk_messageBox command} -body {
     tk_messageBox -default
 } -returnCodes error -result {value for "-default" missing}
 
-test msgbox-1.11.1 {tk_messageBox command} -constraints notAqua -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}
-test msgbox-1.11.2 {tk_messageBox command} -constraints aqua -body {
-    tk_messageBox -type foo
-} -returnCodes error -result {bad value "foo": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel}
 
-test msgbox-1.13 {tk_messageBox command} -constraints nonAqua -body {
+test msgbox-1.13 {tk_messageBox command} -body {
     tk_messageBox -default 1.1
 } -returnCodes error -result {bad -default value "1.1": must be abort, retry, ignore, ok, cancel, no, or yes}
-test msgbox-1.13a {tk_messageBox command} -constraints aqua -body {
-    tk_messageBox -default 1.1
-} -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 notAqua -body {
+test msgbox-1.14 {tk_messageBox command} -body {
     tk_messageBox -default foo
 } -returnCodes error -result {bad -default value "foo": must be abort, retry, ignore, ok, cancel, no, or yes}
-test msgbox-1.15 {tk_messageBox command} -constraints aqua -body {
-    tk_messageBox -default foo
-} -returnCodes error -result {bad value "foo": must be abort, retry, ignore, ok, cancel, yes, or no}
 
-test msgbox-1.16 {tk_messageBox command} -constraints notAqua -body {
+test msgbox-1.16 {tk_messageBox command} -body {
     tk_messageBox -type yesno -default 3
 } -returnCodes error -result {bad -default value "3": must be abort, retry, ignore, ok, cancel, no, or yes}
-test msgbox-1.17 {tk_messageBox command} -constraints aqua -body {
-    tk_messageBox -type yesno -default 3
-} -returnCodes error -result {bad value "3": must be abort, retry, ignore, ok, cancel, yes, or no}
 
-test msgbox-1.18 {tk_messageBox command} -constraints notAqua -body {
+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}
-test msgbox-1.18a {tk_messageBox command} -constraints aqua -body {
-    tk_messageBox -icon foo
-} -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