ext/ExtUtils-MakeMaker/t/revision.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     unshift @INC, 't/lib';
   5 }
   6
   7 use Test::More tests => 4;
   8
   9 BEGIN {
  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
  16 cmp_ok $ExtUtils::MakeMaker::Revision, '>', 1;
  17 cmp_ok $ExtUtils::MM_VMS::Revision,    '>', 1;