[p5sagit/p5-mst-13.2.git] / ext / Net-Ping / t / 110_icmp_inst.t

# Test to make sure object can be instantiated for icmp protocol.
# Root access is required to actually perform icmp testing.

BEGIN {
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
}

use Test;
use Net::Ping;
plan tests => 2;

# Everything loaded fine
ok 1;

if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
    or ($^O eq 'MSWin32'
        and !IsAdminUser())
    or ($^O eq 'VMS'
        and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
  skip "icmp ping requires root privileges.", 1;
} elsif ($^O eq 'MacOS') {
  skip "icmp protocol not supported.", 1;
} else {
  my $p = new Net::Ping "icmp";
  ok !!$p;
}

sub IsAdminUser {
  return unless $^O eq 'MSWin32';
  return unless eval { require Win32 };
  return unless defined &Win32::IsAdminUser;
  return Win32::IsAdminUser();
}
Commit	Line	Data
505f3f16	1	# Test to make sure object can be instantiated for icmp protocol.
	2	# Root access is required to actually perform icmp testing.
	3
a2a978ac	4	BEGIN {
49afa5f6	5	unless (eval "require Socket") {
	6	print "1..0 \# Skip: no Socket\n";
	7	exit;
	8	}
a2a978ac	9	}
a2a978ac	10
505f3f16	11	use Test;
	12	use Net::Ping;
	13	plan tests => 2;
	14
	15	# Everything loaded fine
	16	ok 1;
	17
f569508e	18	if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
0bd43963	19	or ($^O eq 'MSWin32'
2d706fb2	20	and !IsAdminUser())
b757f218	21	or ($^O eq 'VMS'
b757f218	22	and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
ddbbf559	23	skip "icmp ping requires root privileges.", 1;
e69a2255	24	} elsif ($^O eq 'MacOS') {
e69a2255	25	skip "icmp protocol not supported.", 1;
ddbbf559	26	} else {
	27	my $p = new Net::Ping "icmp";
	28	ok !!$p;
	29	}
2d706fb2	30
	31	sub IsAdminUser {
	32	return unless $^O eq 'MSWin32';
	33	return unless eval { require Win32 };
	34	return unless defined &Win32::IsAdminUser;
	35	return Win32::IsAdminUser();
	36	}