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