1use strict; 2use warnings; 3 4use ExtUtils::MakeMaker; 5use Test::More tests => 1; 6 7my $file = 'lib/ANTLR/Runtime.pm'; 8 9my $version = MM->parse_version($file); 10 11# classic CPAN 12#like($version, qr/^\d+\.\d{2,}(_\d{2,})?$/); 13 14# version.pm 15like($version, qr/^\d+\.\d+\.\d+(?:_\d+)?$/); 16