diff options
author | Karl Williamson <khw@cpan.org> | 2015-01-22 14:26:54 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-09 15:19:57 -0600 |
commit | 96c7b11637ff39945439a12d8537de89dba86bde (patch) | |
tree | 94115766cb825d08915059e0bfd8fac5770ddea7 /dist/Net-Ping | |
parent | 02b4438c0b5715a80520b510dc85b983b605ee2a (diff) | |
download | perl-96c7b11637ff39945439a12d8537de89dba86bde.tar.gz |
dist/Net-Ping/t/450_service.t: Skip 2 tests on os390
These two tests are already skipped for hpux, and one for win32. I'm
assuming the same issue here.
Diffstat (limited to 'dist/Net-Ping')
-rw-r--r-- | dist/Net-Ping/t/450_service.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Net-Ping/t/450_service.t b/dist/Net-Ping/t/450_service.t index c16b30d436..fc8d758f07 100644 --- a/dist/Net-Ping/t/450_service.t +++ b/dist/Net-Ping/t/450_service.t @@ -79,7 +79,7 @@ $p->{port_num} = $port2; { local $TODO; - $TODO = "Believed not to work on $^O" if $^O eq 'hpux'; + $TODO = "Believed not to work on $^O" if $^O eq 'hpux' || $^O eq 'os390'; is($p->ping("127.0.0.1"), 1, 'second port is reachable'); } @@ -131,7 +131,7 @@ is($p->ping("127.0.0.1"), 1, "send SYN to second port") or diag ("ERRNO: $!"); { local $TODO; - $TODO = "Believed not to work on $^O" if $^O eq 'hpux' || $^O eq 'MSWin32'; + $TODO = "Believed not to work on $^O" if $^O eq 'hpux' || $^O eq 'MSWin32' || $^O eq 'os390'; is($p->ack(), '127.0.0.1', 'IP should be reachable'); } is($p->ack(), undef, 'No more sockets'); |