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