Permalink
Browse files

Enable INET tests on Mac OS X. Extend timeouts for JVM.

  • Loading branch information...
1 parent 1fc796c commit 7cf469f348b095296de81bb9cf633c67332fd30f @donaldh donaldh committed Sep 6, 2013
Showing with 4 additions and 4 deletions.
  1. +1 −1 S32-io/IO-Socket-INET.sh
  2. +3 −3 S32-io/IO-Socket-INET.t
View
@@ -26,7 +26,7 @@ while true; do
I=$(expr $I + 1)
# killing client if we already waiting 20 seconds
- if [ $I -ge 20 ]; then
+ if [ $I -ge 45 ]; then
echo '(timeout)'
kill $CLIENT 2>/dev/null
break
View
@@ -10,7 +10,7 @@ sub elapsed {
LEAVE $last = time;
return "[{ $elapsed = time - $last }s]";
}
-my $toolong = 30;
+my $toolong = 60;
# L<S32::IO/IO::Socket::INET>
@@ -26,7 +26,7 @@ given $*OS {
$netstat_cmd = "netstat --tcp --all --numeric";
$netstat_pat = rx{ State .+? [ ^^ .+? ':' (\d+) .+? ]+ $ };
}
- when 'darwin' {
+ when any 'darwin', 'Mac OS X' {
$netstat_cmd = "netstat -f inet -p tcp -a -n";
$netstat_pat = rx{ [ ^^ .+? '.' (\d+) ' ' .+? ]+ $ };
}
@@ -61,7 +61,7 @@ if $port >= 65535 {
diag "{elapsed} Testing on port $port";
-if $*OS eq any <linux darwin solaris MSWin32> { # please add more valid OS names
+if $*OS eq any <linux darwin solaris MSWin32>, 'Mac OS X' { # please add more valid OS names
my $is-win;
$is-win = True if $*OS eq 'MSWin32';

0 comments on commit 7cf469f

Please sign in to comment.