ext/Win32/t/GetFileVersion.t

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