[p5sagit/p5-mst-13.2.git] / ext / Net-Ping / t / 120_udp_inst.t

# Test to make sure object can be instantiated for udp protocol.
# I do not know of any servers that support udp echo anymore.

BEGIN {
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
  unless (getservbyname('echo', 'udp')) {
    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 "udp";
ok !!$p;
Commit	Line	Data
505f3f16	1	# Test to make sure object can be instantiated for udp protocol.
	2	# I do not know of any servers that support udp echo anymore.
	3
a2a978ac	4	BEGIN {
49afa5f6	5	unless (eval "require Socket") {
	6	print "1..0 \# Skip: no Socket\n";
	7	exit;
	8	}
ddbbf559	9	unless (getservbyname('echo', 'udp')) {
	10	print "1..0 \# Skip: no echo port\n";
	11	exit;
	12	}
a2a978ac	13	}
a2a978ac	14
505f3f16	15	use Test;
	16	use Net::Ping;
	17	plan tests => 2;
	18
	19	# Everything loaded fine
	20	ok 1;
	21
	22	my $p = new Net::Ping "udp";
	23	ok !!$p;