summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2020-08-21 13:59:13 (GMT)
committerdgp <dgp@users.sourceforge.net>2020-08-21 13:59:13 (GMT)
commit591c90cd3e7e44d16dc721a6b3d7a66c6746c2eb (patch)
treeff413cdb104b047b60dfea3acedf758f9685078d
parent998409ea9b162e1f9a271add26637eb24792a2aa (diff)
downloadtcl-591c90cd3e7e44d16dc721a6b3d7a66c6746c2eb.zip
tcl-591c90cd3e7e44d16dc721a6b3d7a66c6746c2eb.tar.gz
tcl-591c90cd3e7e44d16dc721a6b3d7a66c6746c2eb.tar.bz2
Suppress tests that fail starting with OSX Mojave.
-rw-r--r--tests/socket.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/socket.test b/tests/socket.test
index 3544dd9..469367a 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -199,6 +199,8 @@ if {[testConstraint doTestsWithRemoteServer]} {
}
}
+testConstraint notOSX [string compare $::tcl_platform(os) Darwin]
+
test socket-1.1 {arg parsing for socket command} {socket} {
list [catch {socket -server} msg] $msg
} {1 {no argument given for -server option}}
@@ -816,7 +818,7 @@ test socket-4.2 {byte order problems, socket numbers, htons} {socket} {
} ok
test socket-5.1 {byte order problems, socket numbers, htons} \
- {socket unix notRoot} {
+ {socket unix notRoot notOSX} {
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 0x1} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}
@@ -833,7 +835,7 @@ test socket-5.2 {byte order problems, socket numbers, htons} {socket} {
set x
} {couldn't open socket: port number too high}
test socket-5.3 {byte order problems, socket numbers, htons} \
- {socket unix notRoot} {
+ {socket unix notRoot notOSX} {
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 21} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}