|
use strict;
|
|
use warnings;
|
|
|
|
use ExtUtils::MakeMaker;
|
|
use Test::More tests => 1;
|
|
|
|
my $file = 'lib/ANTLR/Runtime.pm';
|
|
|
|
my $version = MM->parse_version($file);
|
|
|
|
# classic CPAN
|
|
#like($version, qr/^\d+\.\d{2,}(_\d{2,})?$/);
|
|
|
|
# version.pm
|
|
like($version, qr/^\d+\.\d+\.\d+(?:_\d+)?$/);
|