ext/ExtUtils-MakeMaker/t/VERSION_FROM.t

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