[p5sagit/p5-mst-13.2.git] / dist / Net-Ping / t / 130_tcp_inst.t

# Test to make sure object can be instantiated for tcp 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 "tcp";
ok !!$p;
Commit	Line	Data
505f3f16	1	# Test to make sure object can be instantiated for tcp protocol.
505f3f16	2
a2a978ac	3	BEGIN {
49afa5f6	4	unless (eval "require Socket") {
	5	print "1..0 \# Skip: no Socket\n";
	6	exit;
	7	}
e82f584b	8	unless (getservbyname('echo', 'tcp')) {
ddbbf559	9	print "1..0 \# Skip: no echo port\n";
	10	exit;
	11	}
a2a978ac	12	}
a2a978ac	13
505f3f16	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 "tcp";
	22	ok !!$p;