[p5sagit/p5-mst-13.2.git] / t / win32 / getosversion.t

#!perl -w

# tests for Win32::GetOSVersion()

$^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit;

print "1..1\n";

my $scalar = Win32::GetOSVersion();
my @array  = Win32::GetOSVersion();

print "not " unless $scalar == $array[4];
print "ok 1\n";
Commit	Line	Data
95015c6e	1	#!perl -w
	2
	3	# tests for Win32::GetOSVersion()
	4
	5	$^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit;
	6
	7	print "1..1\n";
	8
	9	my $scalar = Win32::GetOSVersion();
	10	my @array = Win32::GetOSVersion();
	11
	12	print "not " unless $scalar == $array[4];
	13	print "ok 1\n";