From 43554a166d2b5898c73c75bec90c6ea9d9162434 Mon Sep 17 00:00:00 2001 From: fvogel Date: Mon, 30 Apr 2018 18:14:58 +0000 Subject: Some tests in choosedir.test (those that check the options parsing) can be run on all platforms, therefore remove the unnecessary constraints --- tests/choosedir.test | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/choosedir.test b/tests/choosedir.test index 8675e10..379745e 100644 --- a/tests/choosedir.test +++ b/tests/choosedir.test @@ -85,25 +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.1 {tk_chooseDirectory command} -constraints {unix notAqua} -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.5.2 {tk_chooseDirectory command} -constraints aqua -body { tk_chooseDirectory -foo bar } -returnCodes error -result {bad option "-foo": -initialdir, -message, -mustexist, -parent, -title, or -command} -test choosedir-1.6 {tk_chooseDirectory command} -constraints unix -body { +test choosedir-1.6 {tk_chooseDirectory command} -body { tk_chooseDirectory -parent foo.bar } -returnCodes error -result {bad window path name "foo.bar"} -- cgit v0.12