diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-08 15:16:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-08 15:16:57 (GMT) |
| commit | 2f06f93f705ba316b0374ad2742cfe49227b1aeb (patch) | |
| tree | 06280fa14c170fcb1e2ec950550ba8a0991c2ee3 /tests/clrpick.test | |
| parent | 0a9213075871ce2995c09448b33795b1ae53118e (diff) | |
| parent | a5e4b9f2e248af1d2b1d0e70a5cee6db6088bcd3 (diff) | |
| download | tk-2f06f93f705ba316b0374ad2742cfe49227b1aeb.zip tk-2f06f93f705ba316b0374ad2742cfe49227b1aeb.tar.gz tk-2f06f93f705ba316b0374ad2742cfe49227b1aeb.tar.bz2 | |
Merge 8.6
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 13d43dc..84b883e 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -10,6 +10,8 @@ eval tcltest::configure $argv tcltest::loadTestedCommands namespace import -force tcltest::test +testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }] + if {[testConstraint defaultPseudocolor8]} { # let's soak up a bunch of colors...so that # machines with small color palettes still fail. @@ -172,7 +174,7 @@ test clrpick-2.2 {tk_chooseColor command} -constraints { tk_chooseColor -parent . -title "choose #808040" } -result {#808040} test clrpick-2.3 {tk_chooseColor command} -constraints { - nonUnixUserInteraction colorsLeftover + nonUnixUserInteraction colorsLeftover failsOnXQuarz } -body { ToPressButton . ok tk_chooseColor -parent . -title "Press OK" |