diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-22 11:08:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-22 11:08:01 (GMT) |
| commit | f31f7c15c932ef82b7ea1ce4df7b3a1436118d62 (patch) | |
| tree | 4769a78148772f932274d91d7596414d2fa5e33c /tests/clrpick.test | |
| parent | 617afea2de833e496113d4698a66a470fe2d0b43 (diff) | |
| download | tk-f31f7c15c932ef82b7ea1ce4df7b3a1436118d62.zip tk-f31f7c15c932ef82b7ea1ce4df7b3a1436118d62.tar.gz tk-f31f7c15c932ef82b7ea1ce4df7b3a1436118d62.tar.bz2 | |
Mark testcases which fail on XQuarz
Diffstat (limited to 'tests/clrpick.test')
| -rw-r--r-- | tests/clrpick.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/clrpick.test b/tests/clrpick.test index 2fa8c36..61d69bd 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -9,6 +9,8 @@ package require tcltest 2.2 eval tcltest::configure $argv tcltest::loadTestedCommands +testConstraint failsOnQuarz [expr {![info exists ::env(MAC_CI)]}] + if {[testConstraint defaultPseudocolor8]} { # let's soak up a bunch of colors...so that # machines with small color palettes still fail. @@ -168,7 +170,7 @@ test clrpick-2.2 {tk_chooseColor command} \ tk_chooseColor -parent $parent -title "choose $colors" } "$color" test clrpick-2.3 {tk_chooseColor command} \ - {nonUnixUserInteraction colorsLeftover} { + {nonUnixUserInteraction colorsLeftover failsOnQuarz} { ToPressButton $parent ok tk_chooseColor -parent $parent -title "Press OK" } "$color" |