cpan/Win32/t/GetOSVersion.t


1
2
3
4
5
6
7
8
9
10
11

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