This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
BeOS has times() tick of 1000000, not CLK_TCK (1000)
[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
a2a978ac
JH
4BEGIN {
5 unless (eval "require Socket") {
6 print "1..0 # Skip: no Socket\n";
7 exit;
8 }
9}
10
505f3f16
JH
11use Test;
12use Net::Ping;
13plan tests => 2;
14
15# Everything loaded fine
16ok 1;
17
18my $p = new Net::Ping "tcp";
19ok !!$p;