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' ); |