[perl5.git] / dist / Net-Ping / t / 510_ping_udp.t

# Test to perform udp protocol testing.

use strict;

sub isWindowsVista {
   return unless $^O eq 'MSWin32' or $^O eq "cygwin";
   return unless eval { require Win32 };
   return unless defined &Win32::GetOSName;
   return Win32::GetOSName() eq "WinVista";
}

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

  if(isWindowsVista()) {
    print "1..0 \# Skip: udp ping blocked by Vista's default settings\n";
    exit;
  }
}

use Test::More tests => 2;
BEGIN {use_ok('Net::Ping')};

my $p = new Net::Ping "udp";
is($p->ping("127.0.0.1"), 1);
Commit	Line	Data
c94ff782 JH	1	# Test to perform udp protocol testing.
c94ff782 JH	2
2f794ae1 NC	3	use strict;
2f794ae1 NC	4
f8abf63d SP	5	sub isWindowsVista {
	6	return unless $^O eq 'MSWin32' or $^O eq "cygwin";
	7	return unless eval { require Win32 };
	8	return unless defined &Win32::GetOSName;
	9	return Win32::GetOSName() eq "WinVista";
	10	}
	11
c94ff782 JH	12	BEGIN {
	13	unless (eval "require Socket") {
	14	print "1..0 \# Skip: no Socket\n";
	15	exit;
	16	}
f8abf63d	17	unless (getservbyname('echo', 'udp')) {
7ac0cca8	18	print "1..0 \# Skip: no udp echo port\n";
f8abf63d SP	19	exit;
	20	}
	21
	22	if(isWindowsVista()) {
	23	print "1..0 \# Skip: udp ping blocked by Vista's default settings\n";
c94ff782 JH	24	exit;
	25	}
	26	}
	27
2f794ae1 NC	28	use Test::More tests => 2;
2f794ae1 NC	29	BEGIN {use_ok('Net::Ping')};
c94ff782 JH	30
c94ff782 JH	31	my $p = new Net::Ping "udp";
2f794ae1	32	is($p->ping("127.0.0.1"), 1);