blob: 00be5af03e167bc159bb26b73d616009c6ee3997 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Test to make sure object can be instantiated for tcp protocol.
BEGIN {
unless (eval "require Socket") {
print "1..0 \# Skip: no Socket\n";
exit;
}
unless (getservbyname('echo', 'udp')) {
print "1..0 \# Skip: no echo port\n";
exit;
}
}
use Test;
use Net::Ping;
plan tests => 2;
# Everything loaded fine
ok 1;
my $p = new Net::Ping "tcp";
ok !!$p;
|
