[p5sagit/p5-mst-13.2.git] / ext / Win32 / t / GetOSVersion.t

use strict;
use Test;
use Win32;

plan tests => 1;

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

print "not " unless $scalar == $array[4];
print "ok 1\n";
Commit	Line	Data
83a611dd	1	use strict;
	2	use Test;
	3	use Win32;
95015c6e	4
83a611dd	5	plan tests => 1;
95015c6e	6
	7	my $scalar = Win32::GetOSVersion();
	8	my @array = Win32::GetOSVersion();
	9
	10	print "not " unless $scalar == $array[4];
	11	print "ok 1\n";