[p5sagit/p5-mst-13.2.git] / ext / ExtUtils-MakeMaker / t / VERSION_FROM.t

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib';
}

chdir 't';

use strict;
use Test::More tests => 1;
use MakeMaker::Test::Utils;
use ExtUtils::MakeMaker;
use TieOut;
use File::Path;

perl_lib();

mkdir('Odd-Version', 0777);
END { chdir File::Spec->updir;  rmtree 'Odd-Version' }
chdir 'Odd-Version';

open(MPL, ">Version") || die $!;
print MPL "\$VERSION = 0\n";
close MPL;
END { unlink 'Version' }

my $stdout = tie *STDOUT, 'TieOut' or die;
my $mm = WriteMakefile(
    NAME         => 'Version',
    VERSION_FROM => 'Version'
);

is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );
Commit	Line	Data
57b1a898	1	#!/usr/bin/perl -w
57b1a898	2
45bc4d3a	3	BEGIN {
b78fd716	4	unshift @INC, 't/lib';
45bc4d3a	5	}
	6
	7	chdir 't';
	8
	9	use strict;
	10	use Test::More tests => 1;
	11	use MakeMaker::Test::Utils;
	12	use ExtUtils::MakeMaker;
	13	use TieOut;
	14	use File::Path;
	15
	16	perl_lib();
	17
57b1a898	18	mkdir('Odd-Version', 0777);
45bc4d3a	19	END { chdir File::Spec->updir; rmtree 'Odd-Version' }
	20	chdir 'Odd-Version';
	21
	22	open(MPL, ">Version") \|\| die $!;
	23	print MPL "\$VERSION = 0\n";
	24	close MPL;
	25	END { unlink 'Version' }
	26
	27	my $stdout = tie *STDOUT, 'TieOut' or die;
	28	my $mm = WriteMakefile(
	29	NAME => 'Version',
	30	VERSION_FROM => 'Version'
	31	);
	32
	33	is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );