lib/ExtUtils/t/VERSION_FROM.t

   1 #!/usr/bin/perl -w
   2
   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
  24 mkdir('Odd-Version', 0777);
  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' );