VERSION_FROM.t revision 1.1.1.1
1231200Smm#!/usr/bin/perl -w 2231200Smm 3231200SmmBEGIN { 4231200Smm unshift @INC, 't/lib'; 5231200Smm} 6231200Smm 7231200Smmchdir 't'; 8231200Smm 9231200Smmuse strict; 10231200Smmuse Test::More tests => 1; 11231200Smmuse MakeMaker::Test::Utils; 12231200Smmuse ExtUtils::MakeMaker; 13231200Smmuse TieOut; 14231200Smmuse File::Path; 15231200Smm 16231200Smmperl_lib(); 17231200Smm 18231200Smmmkdir('Odd-Version', 0777); 19231200SmmEND { chdir File::Spec->updir; rmtree 'Odd-Version' } 20231200Smmchdir 'Odd-Version'; 21231200Smm 22231200Smmopen(MPL, ">Version") || die $!; 23231200Smmprint MPL "\$VERSION = 0\n"; 24231200Smmclose MPL; 25231200SmmEND { unlink 'Version' } 26231200Smm 27231200Smmmy $stdout = tie *STDOUT, 'TieOut' or die; 28231200Smmmy $mm = WriteMakefile( 29231200Smm NAME => 'Version', 30231200Smm VERSION_FROM => 'Version' 31231200Smm); 32231200Smm 33231200Smmis( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' ); 34231200Smm