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