This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / lib / ExtUtils / t / parse_version.t
CommitLineData
a7d1454b
RGS
1#!/usr/bin/perl -w
2
3BEGIN {
4 if( $ENV{PERL_CORE} ) {
5 chdir 't';
6 @INC = '../lib';
7 }
8 else {
9 unshift @INC, 't/lib';
10 }
11}
12chdir 't';
13
5dca256e 14use Test::More tests => 10;
a7d1454b
RGS
15use ExtUtils::MakeMaker;
16
17my %versions = ('$VERSION = 0.02' => 0.02,
18 '$VERSION = 0.0' => 0.0,
19 '$VERSION = -1.0' => -1.0,
20 '$VERSION = undef' => 'undef',
21 '$wibble = 1.0' => 'undef',
22 );
23
24while( my($code, $expect) = each %versions ) {
25 open(FILE, ">VERSION.tmp") || die $!;
26 print FILE "$code\n";
27 close FILE;
28
29 $_ = 'foo';
30 is( MM->parse_version('VERSION.tmp'), $expect, $code );
31 is( $_, 'foo', '$_ not leaked by parse_version' );
32
33 unlink "VERSION.tmp";
34}