[p5sagit/p5-mst-13.2.git] / ext / Net-Ping / t / 150_syn_inst.t

# Test to make sure object can be instantiated for syn protocol.

BEGIN {
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
  unless (getservbyname('echo', 'tcp')) {
    print "1..0 \# Skip: no echo port\n";
    exit;
  }
}

use Test;
use Net::Ping;
plan tests => 2;

# Everything loaded fine
ok 1;

my $p = new Net::Ping "syn";
ok !!$p;
Commit	Line	Data
f569508e	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;