Move Module::CoreList from ext/ to dist/
[perl.git] / ext / Net-Ping / t / 150_syn_inst.t
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;