source: vendor/perl/5.8.8/t/win32/getosversion.t@ 3181

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