4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib/');
9 unshift @INC, 't/lib/';
16 use Test::More tests => 3;
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;
23 my $hint_file = File::Spec->catfile('hints', "$^O.pl");
24 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
26 $self->{CCFLAGS} = 'basset hounds got long ears';
31 use ExtUtils::MakeMaker;
33 my $out = tie *STDERR, 'TieOut';
34 my $mm = bless {}, 'ExtUtils::MakeMaker';
36 is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
37 is( $out->read, "Processing hints file $hint_file\n" );
39 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
46 is( $out->read, <<OUT, 'hint files produce errors' );
47 Processing hints file $hint_file