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