diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:18:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 09:18:11 (GMT) |
| commit | b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4 (patch) | |
| tree | 6e655bc7f92d0c5ec2fb7fd348fae1d30423429e | |
| parent | 6dbc78452d57629467b29add83eef5ba6eebc222 (diff) | |
| download | tcl-b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4.zip tcl-b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4.tar.gz tcl-b924d89e299f95beaf3c6bd1ae4adf16aa3c38d4.tar.bz2 | |
Mark one more test as knownMsvcBug
| -rw-r--r-- | tests/socket.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/socket.test b/tests/socket.test index b91668e..84320bd 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -75,6 +75,7 @@ if {[expr {[info exists ::env(TRAVIS_OSX_IMAGE)] && [string match xcode* $::env( # Some tests require the Thread package or exec command testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}] testConstraint exec [llength [info commands exec]] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] # Produce a random port number in the Dynamic/Private range # from 49152 through 65535. @@ -2285,7 +2286,7 @@ test socket-14.10.1 {pending [socket -async] and nonblocking [puts], server is I removeFile script } -result {{} ok} test socket-14.11.0 {pending [socket -async] and nonblocking [puts], no listener, no flush} \ - -constraints {socket} \ + -constraints {socket knownMsvcBug} \ -body { set sock [socket -async localhost [randport]] fconfigure $sock -blocking 0 |