1 # Test to perform udp protocol testing.
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";
11 unless (eval "require Socket") {
12 print "1..0 \# Skip: no Socket\n";
15 unless (getservbyname('echo', 'udp')) {
16 print "1..0 \# Skip: no echo port\n";
20 if(isWindowsVista()) {
21 print "1..0 \# Skip: udp ping blocked by Vista's default settings\n";
30 # Everything loaded fine
33 my $p = new Net::Ping "udp";
34 ok $p->ping("127.0.0.1");