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