Commit | Line | Data |
2d8142c6 |
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 | } |