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