Permalink
Browse files

[t/spec/S32-io] Make these tests run on solaris, confirmed passing

git-svn-id: http://svn.pugscode.org/pugs@29017 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 841250a commit 1f0236623d764f12f938f383bb385fdf1af8f41b carlin committed Nov 7, 2009
Showing with 5 additions and 1 deletion.
  1. +5 −1 S32-io/IO-Socket-INET.t
View
@@ -21,6 +21,10 @@ given $*OS {
$netstat_cmd = "netstat -f inet -p tcp -a -n";
$netstat_pat = regex { [ ^^ .+? '.' (\d+) ' ' .+? ]+ $ };
}
+ when 'solaris' {
+ $netstat_cmd = "netstat -an -P tcp -f inet";
+ $netstat_pat = regex { [ ^^ .+? '.' (\d+) ' ' .+? ]+ $ };
+ }
default {
skip_rest('Operating system not yet supported');
exit 0;
@@ -50,7 +54,7 @@ isa_ok $server, IO::Socket::INET;
# Do not bind to this socket in the parent process, that would prevent a
# child process from using it.
-if $*OS eq any <linux darwin> { # please add more valid OS names
+if $*OS eq any <linux darwin solaris> { # please add more valid OS names
# test 2 does echo protocol - Internet RFC 862
$received = qqx{sh t/spec/S32-io/IO-Socket-INET.sh 2 $port};

0 comments on commit 1f02366

Please sign in to comment.