lib/ExtUtils/t/hints.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ('../lib', 'lib/');
   7     }
   8     else {
   9         unshift @INC, 't/lib/';
  10     }
  11 }
  12 chdir 't';
  13
  14 use File::Spec;
  15
  16 use Test::More tests => 3;
  17
  18 # Having the CWD in @INC masked a bug in finding hint files
  19 my $curdir = File::Spec->curdir;
  20 @INC = grep { $_ ne $curdir && $_ ne '.' } @INC;
  21
  22 mkdir('hints', 0777);
  23 (my $os = $^O) =~ s/\./_/g;
  24 my $hint_file = File::Spec->catfile('hints', "$os.pl");
  25
  26 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
  27 print HINT <<'CLOO';
  28 $self->{CCFLAGS} = 'basset hounds got long ears';
  29 CLOO
  30 close HINT;
  31
  32 use TieOut;
  33 use ExtUtils::MakeMaker;
  34
  35 my $out = tie *STDERR, 'TieOut';
  36 my $mm = bless {}, 'ExtUtils::MakeMaker';
  37 $mm->check_hints;
  38 is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
  39 is( $out->read, "Processing hints file $hint_file\n" );
  40
  41 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
  42 print HINT <<'CLOO';
  43 die "Argh!\n";
  44 CLOO
  45 close HINT;
  46
  47 $mm->check_hints;
  48 is( $out->read, <<OUT, 'hint files produce errors' );
  49 Processing hints file $hint_file
  50 Argh!
  51 OUT
  52
  53 END {
  54     use File::Path;
  55     rmtree ['hints'];
  56 }