1#!/usr/bin/perl -w 2 3BEGIN { 4 unshift @INC, 't/lib'; 5} 6 7use Test::More tests => 4; 8 9BEGIN { 10 use_ok 'ExtUtils::MakeMaker'; 11 use_ok 'ExtUtils::MM_VMS'; 12} 13 14# Why 1? Because a common mistake is for the regex to run in scalar context 15# thus getting the count of captured elements (1) rather than the value of $1 16cmp_ok $ExtUtils::MakeMaker::Revision, '>', 1; 17cmp_ok $ExtUtils::MM_VMS::Revision, '>', 1; 18