MM check_hints test

Message-ID: <20020118012557.GE32762@blackrider>

p4raw-id: //depot/perl@14323

1 files changed, 30 insertions, 0 deletions

diff --git a/lib/ExtUtils/t/hints.t b/lib/ExtUtils/t/hints.t
new file mode 100644
index 0000000000..7038de94ad
--- /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'];
+}