cpan/Win32/t/GetFileVersion.t

   1 use strict;\r
   2 use Test;\r
   3 use Win32;\r
   4 \r
   5 unless (defined &Win32::BuildNumber) {\r
   6     print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n";\r
   7     exit;\r
   8 }\r
   9 \r
  10 plan tests => 2;\r
  11 \r
  12 my @version = Win32::GetFileVersion($^X);\r
  13 my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000;\r
  14 \r
  15 # numify $] because it is a version object in 5.10 which will stringify with trailing 0s\r
  16 ok($version, 0+$]);\r
  17 \r
  18 ok($version[3], int(Win32::BuildNumber()));\r