lib/ExtUtils/t/backwards.t

   1 #!/usr/bin/perl -w
   2
   3 # This is a test for all the odd little backwards compatible things
   4 # MakeMaker has to support.  And we do mean backwards.
   5
   6 BEGIN {
   7     if( $ENV{PERL_CORE} ) {
   8         chdir 't' if -d 't';
   9         @INC = ('../lib', 'lib');
  10     }
  11     else {
  12         unshift @INC, 't/lib';
  13     }
  14 }
  15
  16 use strict;
  17 use Test::More tests => 2;
  18
  19 require ExtUtils::MakeMaker;
  20
  21 # CPAN.pm wants MM.
  22 can_ok('MM', 'new');
  23
  24 # Pre 5.8 ExtUtils::Embed wants MY.
  25 can_ok('MY', 'catdir');