diff options
Diffstat (limited to 'tests/pack.test')
| -rw-r--r-- | tests/pack.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/pack.test b/tests/pack.test index 83525a1..a71fe7b 100644 --- a/tests/pack.test +++ b/tests/pack.test @@ -10,6 +10,8 @@ package require tcltest 2.2 eval tcltest::configure $argv tcltest::loadTestedCommands +testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}] + # Utility procedures: proc pack1 {args} { @@ -1011,7 +1013,7 @@ test pack-17.1 {PackLostSlaveProc procedure} { [catch {pack info .pack.a} msg] $msg } {place 20x40+40+10 1 {window ".pack.a" isn't packed}} -test pack-18.1 {unmap slaves when master unmapped} {tempNotPc} { +test pack-18.1 {unmap slaves when master unmapped} {tempNotPc failsOnUbuntu} { # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big @@ -1039,7 +1041,7 @@ test pack-18.1 {unmap slaves when master unmapped} {tempNotPc} { update lappend result [winfo ismapped .pack.a] } {1 0 200 75 0 1} -test pack-18.2 {unmap slaves when master unmapped} { +test pack-18.2 {unmap slaves when master unmapped} failsOnUbuntu { # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big |