diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 09:58:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 09:58:37 (GMT) |
commit | ebd7b1edb756eea5aa2bdb46d4634ba80de8fccc (patch) | |
tree | 770ad6be61d2d80becb2fc7d0bd640a13dc05e1d | |
parent | c99f35416608c70d8e277b38405429a50b64bd84 (diff) | |
download | tcl-ebd7b1edb756eea5aa2bdb46d4634ba80de8fccc.zip tcl-ebd7b1edb756eea5aa2bdb46d4634ba80de8fccc.tar.gz tcl-ebd7b1edb756eea5aa2bdb46d4634ba80de8fccc.tar.bz2 |
Fix 4 socket testcases on Msys (those fail on Cygwin too)
-rw-r--r-- | tests/socket.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/socket.test b/tests/socket.test index d5f9c94..b590fc7 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -285,6 +285,8 @@ proc getPort sock { # Some tests in this file are known to hang *occasionally* on OSX; stop the # worst offenders. testConstraint notOSX [expr {$::tcl_platform(os) ne "Darwin"}] +# Here "Windows" means derived platforms as Cygwin or Msys2 too. +testConstraint notWindows [expr {![regexp {^(Windows|MSYS|CYGWIN)} $::tcl_platform(os)]}] # ---------------------------------------------------------------------- @@ -909,7 +911,7 @@ test socket_$af-5.1 {byte order problems, socket numbers, htons} -body { return {htons problem, should be disallowed, are you running as SU?} } return {couldn't open socket: not owner} -} -constraints [list socket supported_$af unix notRoot notOSX] -result {couldn't open socket: not owner} +} -constraints [list socket supported_$af unix notRoot notOSX notWindows] -result {couldn't open socket: not owner} test socket_$af-5.2 {byte order problems, socket numbers, htons} -body { if {![catch {socket -server dodo 0x10000} msg]} { close $msg @@ -923,7 +925,7 @@ test socket_$af-5.3 {byte order problems, socket numbers, htons} -body { return {htons problem, should be disallowed, are you running as SU?} } return {couldn't open socket: not owner} -} -constraints [list socket supported_$af unix notRoot notOSX] -result {couldn't open socket: not owner} +} -constraints [list socket supported_$af unix notRoot notOSX notWindows] -result {couldn't open socket: not owner} test socket_$af-6.1 {accept callback error} -constraints [list socket supported_$af stdio] -setup { proc myHandler {msg options} { |