From: Michael G. Schwern <schwern@pobox.com>
Date: Thu, 17 Jan 2002 20:25:57 +0000 (-0500)
Subject: MM check_hints test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d8142c661f64cf38c31c13eb111172cbf9b67fc;p=p5sagit%2Fp5-mst-13.2.git

MM check_hints test
Message-ID: <20020118012557.GE32762@blackrider>

p4raw-id: //depot/perl@14323
---

diff --git a/MANIFEST b/MANIFEST
index 605acf0..1f7078d 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -964,6 +964,7 @@ lib/ExtUtils/t/MM_Unix.t	See if ExtUtils::MM_UNIX works
 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
diff --git a/lib/ExtUtils/t/hints.t b/lib/ExtUtils/t/hints.t
new file mode 100644
index 0000000..7038de9
--- /dev/null
+++ b/lib/ExtUtils/t/hints.t
@@ -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'];
+}