This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test -d /system is a bit too generic test for VOS
[perl5.git] / lib / Net / Ping / t / 110_icmp_inst.t
CommitLineData
505f3f16
JH
1# Test to make sure object can be instantiated for icmp protocol.
2# Root access is required to actually perform icmp testing.
3
4use Test;
5use Net::Ping;
6plan tests => 2;
7
8# Everything loaded fine
9ok 1;
10
11my $p = new Net::Ping "tcp";
12ok !!$p;