lib/ExtUtils/t/revision.t

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