t/win32/getosversion.t

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