Commit | Line | Data |
---|---|---|
505f3f16 | 1 | # Test to make sure object can be instantiated for stream protocol. |
2 | ||
a2a978ac | 3 | BEGIN { |
49afa5f6 | 4 | unless (eval "require Socket") { |
5 | print "1..0 \# Skip: no Socket\n"; | |
6 | exit; | |
7 | } | |
e82f584b | 8 | unless (getservbyname('echo', 'tcp')) { |
ddbbf559 | 9 | print "1..0 \# Skip: no echo port\n"; |
10 | exit; | |
11 | } | |
a2a978ac | 12 | } |
13 | ||
505f3f16 | 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 "stream"; | |
22 | ok !!$p; |