From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 23 Jan 2002 19:52:19 +0000 (+0000)
Subject: Except Win32 from echo tests. (Alarm does not break into connect)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d604bee230faa93dca054659df6c20150cd55c3;p=p5sagit%2Fp5-mst-13.2.git

Except Win32 from echo tests. (Alarm does not break into connect)

p4raw-id: //depot/perlio@14393
---

diff --git a/ext/Socket/Socket.t b/ext/Socket/Socket.t
index ed87e67..4dbc480 100755
--- a/ext/Socket/Socket.t
+++ b/ext/Socket/Socket.t
@@ -16,6 +16,7 @@ use Socket;
 
 print "1..16\n";
 
+$has_echo = $^O ne 'MSWin32';
 $alarmed = 0;
 sub arm      { $alarmed = 0; alarm(shift) if $has_alarm }
 sub alarmed  { $alarmed = 1 }
@@ -25,7 +26,7 @@ if (socket(T,PF_INET,SOCK_STREAM,6)) {
   print "ok 1\n";
   
   arm(5);
-  if (connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){
+  if ($has_echo && connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){
 	arm(0);
 
 	print "ok 2\n";
@@ -67,7 +68,7 @@ if( socket(S,PF_INET,SOCK_STREAM,6) ){
   print "ok 4\n";
 
   arm(5);
-  if (connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){
+  if ($has_echo && connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){
         arm(0);
 
 	print "ok 5\n";