| 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+)?$/); |