1# Test to make sure object can be instantiated for stream protocol. 2 3BEGIN { 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 14use Test; 15use Net::Ping; 16plan tests => 2; 17 18# Everything loaded fine 19ok 1; 20 21my $p = new Net::Ping "stream"; 22ok !!$p; 23