lib/ExtUtils/t/hints.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9 chdir 't';
  10
  11 use Test::More tests => 1;
  12
  13 mkdir 'hints';
  14 my $hint = $^O;
  15 open(HINT, ">hints/$hint.pl") || die "Can't write dummy hints file: $!";
  16 print HINT <<'CLOO';
  17 $self->{CCFLAGS} = 'basset hounds got long ears';
  18 CLOO
  19 close HINT;
  20
  21 use ExtUtils::MakeMaker;
  22 my $mm = bless {}, 'ExtUtils::MakeMaker';
  23 $mm->check_hints;
  24 is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
  25
  26
  27 END {
  28     use File::Path;
  29     rmtree ['hints'];
  30 }