This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MM check_hints test
[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';
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 }