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