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

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = ('../lib', 'lib');
    }
    else {
        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';
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
45bc4d3a	1	BEGIN {
	2	if( $ENV{PERL_CORE} ) {
	3	chdir 't' if -d 't';
	4	@INC = ('../lib', 'lib');
	5	}
	6	else {
	7	unshift @INC, 't/lib';
	8	}
	9	}
	10
	11	chdir 't';
	12
	13	use strict;
	14	use Test::More tests => 1;
	15	use MakeMaker::Test::Utils;
	16	use ExtUtils::MakeMaker;
	17	use TieOut;
	18	use File::Path;
	19
	20	perl_lib();
	21
	22	mkdir 'Odd-Version';
	23	END { chdir File::Spec->updir; rmtree 'Odd-Version' }
	24	chdir 'Odd-Version';
	25
	26	open(MPL, ">Version") \|\| die $!;
	27	print MPL "\$VERSION = 0\n";
	28	close MPL;
	29	END { unlink 'Version' }
	30
	31	my $stdout = tie *STDOUT, 'TieOut' or die;
	32	my $mm = WriteMakefile(
	33	NAME => 'Version',
	34	VERSION_FROM => 'Version'
	35	);
	36
	37	is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );