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