4 if( $ENV{PERL_CORE} ) {
14 use Test::More 'no_plan';
15 use ExtUtils::MakeMaker;
17 my %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',
24 while( my($code, $expect) = each %versions ) {
25 open(FILE, ">VERSION.tmp") || die $!;
30 is( MM->parse_version('VERSION.tmp'), $expect, $code );
31 is( $_, 'foo', '$_ not leaked by parse_version' );