t/win32/getosversion.t


1
2
3
4
5
6
7
8
9
10
11
12
13

#!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";