diff options
-rw-r--r-- | tests/socket.test | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/socket.test b/tests/socket.test index b390627..2fb8988 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -63,6 +63,10 @@ package require tcltest 2 namespace import -force ::tcltest::* +if {[expr {[info exists ::env(TRAVIS_OSX_IMAGE)] && [string match xcode* $::env(TRAVIS_OSX_IMAGE)]}]} { + return +} + # Some tests require the testthread and exec commands testConstraint testthread [llength [info commands testthread]] testConstraint exec [llength [info commands exec]] @@ -1768,10 +1772,10 @@ catch {close $commandSocket} catch {close $remoteProcChan} test socket-14.13 {testing writable event when quick failure} -constraints {socket win supported_inet} -body { # Test for bug 336441ed59 where a quick background fail was ignored - + # Test only for windows as socket -async 255.255.255.255 fails # directly on unix - + # The following connect should fail very quickly set a1 [after 2000 {set x timeout}] set s [socket -async 255.255.255.255 43434] @@ -1785,7 +1789,7 @@ test socket-14.13 {testing writable event when quick failure} -constraints {sock test socket-14.14 {testing fileevent readable on failed async socket connect} -constraints [list socket] -body { # Test for bug 581937ab1e - + set a1 [after 5000 {set x timeout}] # This connect should fail set s [socket -async localhost [randport]] |