Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
Win32
/
t
/
GetOSVersion.t
blob: 0038ef70e6984bf7bc1f6da631cce2a7a5afb95a [
file
] [
log
] [
blame
]
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"
;