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