adjust timeouts to accomodate slow/busy systems
Gurusamy Sarathy [Fri, 5 Mar 1999 06:41:16 +0000 (06:41 +0000)]
p4raw-id: //depot/perl@3087

t/lib/io_sock.t

index edd327e..0e002be 100755 (executable)
@@ -28,7 +28,9 @@ use IO::Socket;
 
 $listen = IO::Socket::INET->new(Listen => 2,
                                Proto => 'tcp',
-                               Timeout => 2,
+                               # some systems seem to need as much as 10,
+                               # so be generous with the timeout
+                               Timeout => 15,
                               ) or die "$!";
 
 print "ok 1\n";
@@ -87,7 +89,7 @@ if($pid = fork()) {
 
 # Test various other ways to create INET sockets that should
 # also work.
-$listen = IO::Socket::INET->new(Listen => '', Timeout => 2) or die "$!";
+$listen = IO::Socket::INET->new(Listen => '', Timeout => 15) or die "$!";
 $port = $listen->sockport;
 
 if($pid = fork()) {