[p5sagit/p5-mst-13.2.git] / ext / Win32 / t / GetFileVersion.t

use strict;
use Test;
use Win32;

unless (defined &Win32::BuildNumber) {
    print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n";
    exit;
}

plan tests => 2;

my @version = Win32::GetFileVersion($^X);
my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000;

# numify $] because it is a version object in 5.10 which will stringify with trailing 0s
ok($version, 0+$]);

ok($version[3], int(Win32::BuildNumber()));
Commit	Line	Data
83a611dd	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
166cd87e	15	# numify $] because it is a version object in 5.10 which will stringify with trailing 0s
	16	ok($version, 0+$]);
	17
34f7f30d	18	ok($version[3], int(Win32::BuildNumber()));