Permalink
Browse files

run socket tests on rakudo.jvm/linux

  • Loading branch information...
1 parent 2e0bf7c commit ac4e4e3231ceea79bf01fb94fb2a3755e617bb32 @moritz moritz committed Sep 7, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 S32-io/IO-Socket-INET.t
View
4 S32-io/IO-Socket-INET.t
@@ -22,7 +22,7 @@ my $host = '127.0.0.1'; # or 'localhost' may be friendlier
# To find an free port, list the ports currently in use.
my ( @ports, $netstat_cmd, $netstat_pat, $received, $expected );
given $*OS {
- when 'linux' {
+ when any 'linux', 'Linux' {
$netstat_cmd = "netstat --tcp --all --numeric";
$netstat_pat = rx{ State .+? [ ^^ .+? ':' (\d+) .+? ]+ $ };
}
@@ -61,7 +61,7 @@ if $port >= 65535 {
diag "{elapsed} Testing on port $port";
-if $*OS eq any <linux darwin solaris MSWin32>, 'Mac OS X' { # please add more valid OS names
+if $*OS eq any <linux 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 ac4e4e3

Please sign in to comment.