2 if( $ENV{PERL_CORE} ) {
4 @INC = ('../lib', 'lib/');
7 unshift @INC, 't/lib/';
10 $ENV{PERL_CORE} ? chdir '../lib/ExtUtils/t' : chdir 't';
12 use Test::More tests => 3;
15 my $hint_file = "hints/$^O.pl";
16 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
18 $self->{CCFLAGS} = 'basset hounds got long ears';
23 use ExtUtils::MakeMaker;
25 my $out = tie *STDERR, 'TieOut';
26 my $mm = bless {}, 'ExtUtils::MakeMaker';
28 is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
29 is( $out->read, "Processing hints file $hint_file\n" );
31 open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
38 is( $out->read, <<OUT, 'hint files produce errors' );
39 Processing hints file $hint_file