1# Test to make sure object can be instantiated for stream protocol.
2
3use strict;
4
5BEGIN {
6  unless (eval "require Socket") {
7    print "1..0 \# Skip: no Socket\n";
8    exit;
9  }
10  unless (getservbyname('echo', 'tcp')) {
11    print "1..0 \# Skip: no echo port\n";
12    exit;
13  }
14}
15
16use Test::More tests => 2;
17BEGIN {use_ok 'Net::Ping'};
18
19my $p = new Net::Ping "stream";
20isa_ok($p, 'Net::Ping', 'object can be instantiated for stream protocol');
21