So I don't break check_hints() again, here's a test. I put it in a
seperate file since I have a funny feeling we'll be adding to this
soon.
--- MANIFEST 2002/01/18 01:23:33 1.1
+++ MANIFEST 2002/01/18 01:23:44
@@ -964,6 +964,7 @@
lib/ExtUtils/t/MM_VMS.t See if ExtUtils::MM_VMS works
lib/ExtUtils/t/MM_Win32.t See if ExtUtils::MM_Win32 works
lib/ExtUtils/t/Packlist.t See if Packlist works
+lib/ExtUtils/t/hints.t See if hint files are honored.
lib/ExtUtils/t/testlib.t Fixes up @INC to use just-built extension
lib/ExtUtils/testlib.pm Fixes up @INC to use just-built extension
lib/ExtUtils/typemap Extension interface types
--- /dev/null Sat Dec 1 17:56:11 2001
+++ lib/ExtUtils/t/hints.t Thu Jan 17 20:20:42 2002
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+}
+chdir 't';
+
+use Test::More tests => 1;
+
+mkdir 'hints';
+my $hint = $^O;
+open(HINT, ">hints/$hint.pl") || die "Can't write dummy hints file: $!";
+print HINT <<'CLOO';
+$self->{CCFLAGS} = 'basset hounds got long ears';
+CLOO
+close HINT;
+
+use ExtUtils::MakeMaker;
+my $mm = bless {}, 'ExtUtils::MakeMaker';
+$mm->check_hints;
+is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
+
+
+END {
+ use File::Path;
+ rmtree ['hints'];
+}
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Cherry blossoms fall
I hurry to my final
boiling paste enema.
-- mjd
