1 files changed, 9 insertions, 7 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test
index fb6e62d..f67a721 100644
--- a/tests/choosedir.test
+++ b/tests/choosedir.test
@@ -85,23 +85,25 @@ set fake [file join $dir non-existant]
 
 set parent .
 
-test choosedir-1.1 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.1 {tk_chooseDirectory command} -body {
     tk_chooseDirectory -initialdir
 } -returnCodes error -result {value for "-initialdir" missing}
-test choosedir-1.2 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.2 {tk_chooseDirectory command} -body {
     tk_chooseDirectory -mustexist
 } -returnCodes error -result {value for "-mustexist" missing}
-test choosedir-1.3 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.3 {tk_chooseDirectory command} -body {
     tk_chooseDirectory -parent
 } -returnCodes error -result {value for "-parent" missing}
-test choosedir-1.4 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.4 {tk_chooseDirectory command} -body {
     tk_chooseDirectory -title
 } -returnCodes error -result {value for "-title" missing}
-
-test choosedir-1.5 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.5.1 {tk_chooseDirectory command} -constraints notAqua -body {
     tk_chooseDirectory -foo bar
 } -returnCodes error -result {bad option "-foo": must be -initialdir, -mustexist, -parent, or -title}
-test choosedir-1.6 {tk_chooseDirectory command} -constraints unix -body {
+test choosedir-1.5.2 {tk_chooseDirectory command} -constraints aqua -body {
+    tk_chooseDirectory -foo bar
+} -returnCodes error -result {bad option "-foo": must be -initialdir, -message, -mustexist, -parent, -title, or -command}
+test choosedir-1.6 {tk_chooseDirectory command} -body {
     tk_chooseDirectory -parent foo.bar
 } -returnCodes error -result {bad window path name "foo.bar"}