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