ext/Win32/t/GetOSVersion.t

   1 use strict;
   2 use Test;
   3 use Win32;
   4
   5 plan tests => 1;
   6
   7 my $scalar = Win32::GetOSVersion();
   8 my @array  = Win32::GetOSVersion();
   9
  10 print "not " unless $scalar == $array[4];
  11 print "ok 1\n";