cpan/Win32/t/GetOSVersion.t

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