1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#!/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 '$_'";
}
|
