cb0ca1b8b8b380ef6e81e5476e9690111a95ea47
[perl.git] / dist / Net-Ping / t / 510_ping_udp.t
1 # Test to perform udp protocol testing.
2
3 use strict;
4
5 sub isWindowsVista {
6    return unless $^O eq 'MSWin32' or $^O eq "cygwin";
7    return unless eval { require Win32 };
8    return unless defined &Win32::GetOSVersion();
9
10    #is this Vista or later?
11    my ($string, $major, $minor, $build, $id) = Win32::GetOSVersion();
12    return $build >= 6;
13
14 }
15
16 use Test::More tests => 2;
17 BEGIN {use_ok('Net::Ping')};
18
19 SKIP: {
20     skip "No udp echo port", 1 unless getservbyname('echo', 'udp');
21     skip "udp ping blocked by Window's default settings", 1 if isWindowsVista();
22     my $p = new Net::Ping "udp";
23     is($p->ping("127.0.0.1"), 1);
24 }