This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / 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 }