1# Test to make sure object can be instantiated for syn 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
16
17use Test::More tests => 2;
18BEGIN {use_ok 'Net::Ping'};
19
20my $p = new Net::Ping "syn";
21isa_ok($p, 'Net::Ping', 'object can be instantiated for syn protocol');
22