#!/usr/bin/perl -w
use
strict;
use
warnings;
BEGIN {
unshift
@INC
,
't/lib'
;
}
BEGIN {
use_ok
'ExtUtils::MakeMaker'
;
use_ok
'ExtUtils::MM_VMS'
;
}
# Why 1? Because a common mistake is for the regex to run in scalar context
# thus getting the count of captured elements (1) rather than the value of $1
cmp_ok
$ExtUtils::MakeMaker::Revision
,
'>'
, 1;
cmp_ok
$ExtUtils::MM_VMS::Revision
,
'>'
, 1;