lib/ExtUtils/t/VERSION_FROM.t

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