Commit | Line | Data |
95015c6e |
1 | #!perl -w |
2 | |
3 | # tests for Win32::GetOSVersion() |
4 | |
5 | $^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit; |
6 | |
7 | print "1..1\n"; |
8 | |
9 | my $scalar = Win32::GetOSVersion(); |
10 | my @array = Win32::GetOSVersion(); |
11 | |
12 | print "not " unless $scalar == $array[4]; |
13 | print "ok 1\n"; |