#!/usr/bin/perl -w

# This script tests %ExtUtils::MakeMaker::Recognized_Att_Keys;

use strict;
use Test::More;

# We don’t need to test all parameters; just enough to verify that the
# mechanism is working.  This list is somewhat random, but it works.

my @supported = qw(
 ABSTRACT_FROM
 AUTHOR
 BUILD_REQUIRES
 clean
 dist
 DISTNAME
 DISTVNAME
 LIBS
 MAN3PODS
 META_MERGE
 MIN_PERL_VERSION
 NAME
 PL_FILES
 PREREQ_PM
 VERSION
 VERSION_FROM
);

my @unsupported = qw(
 WIBBLE
 wump
);

plan tests => @supported+@unsupported;

use ExtUtils::MakeMaker ();

for (@supported) {
    ok exists $ExtUtils::MakeMaker::Recognized_Att_Keys{$_},
      "EUMM says it supports param '$_'";
}
for (@unsupported) {
    ok !exists $ExtUtils::MakeMaker::Recognized_Att_Keys{$_},
        "EUMM claims not to support param '$_'";
}