[p5sagit/p5-mst-13.2.git] / ext / Net-Ping / t / 510_ping_udp.t

# Test to perform udp protocol testing.

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;
use Net::Ping;
plan tests => 2;

# Everything loaded fine
ok 1;

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