lib/ExtUtils/t/parse_version.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12 chdir 't';
  13
  14 use Test::More;
  15 use ExtUtils::MakeMaker;
  16
  17 my %versions = (q[$VERSION = '1.00']        => '1.00',
  18                 q[*VERSION = \'1.01']       => '1.01',
  19                 q[($VERSION) = q$Revision: 32208 $ =~ /(\d+)/g;] => 32208,
  20                 q[$FOO::VERSION = '1.10';]  => '1.10',
  21                 q[*FOO::VERSION = \'1.11';] => '1.11',
  22                 '$VERSION = 0.02'   => 0.02,
  23                 '$VERSION = 0.0'    => 0.0,
  24                 '$VERSION = -1.0'   => -1.0,
  25                 '$VERSION = undef'  => 'undef',
  26                 '$wibble  = 1.0'    => 'undef',
  27                 q[my $VERSION = '1.01']         => 'undef',
  28                 q[local $VERISON = '1.02']      => 'undef',
  29                 q[local $FOO::VERSION = '1.30'] => 'undef',
  30                );
  31
  32 if( eval 'our $foo' ) {
  33     $versions{q[our $VERSION = '1.23';]}   = '1.23',
  34 }
  35
  36 if( eval 'require version; "version"->import' ) {
  37     $versions{q[use version; $VERSION = qv(1.2.3);]} = qv(1.2.3);
  38     $versions{q[$VERSION = qv(1.2.3)]}               = qv(1.2.3);
  39 }
  40
  41 plan tests => 2 * keys %versions;
  42
  43 while( my($code, $expect) = each %versions ) {
  44     open(FILE, ">VERSION.tmp") || die $!;
  45     print FILE "$code\n";
  46     close FILE;
  47
  48     $_ = 'foo';
  49     is( MM->parse_version('VERSION.tmp'), $expect, $code );
  50     is( $_, 'foo', '$_ not leaked by parse_version' );
  51
  52     unlink "VERSION.tmp";
  53 }