diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 10:04:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 10:04:33 (GMT) |
| commit | 4fa48d135ae0efa812f9848c171cf70047a687d7 (patch) | |
| tree | bd8e6f0d5a5d026c064b1a8a9a4113a40708232b /tests/socket.test | |
| parent | 86cfccca916781bdd91504a7d7b03d78cb6acfa8 (diff) | |
| parent | 25084dcd33f266a26bce646b6388334fe6ef6127 (diff) | |
| download | tcl-4fa48d135ae0efa812f9848c171cf70047a687d7.zip tcl-4fa48d135ae0efa812f9848c171cf70047a687d7.tar.gz tcl-4fa48d135ae0efa812f9848c171cf70047a687d7.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/socket.test')
| -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 b67d1b9..51014aa 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -299,6 +299,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)]}] # ---------------------------------------------------------------------- @@ -941,7 +943,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 @@ -955,7 +957,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} { |