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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#!/usr/bin/perl -w
# This is a test checking various aspects of the optional argument
# MIN_PERL_VERSION to WriteMakefile.
BEGIN {
unshift @INC, 't/lib';
}
use strict;
use Config;
use Test::More
$ENV{PERL_CORE} && $Config{'usecrosscompile'}
? (skip_all => "no toolchain installed when cross-compiling")
: (tests => 20);
use TieOut;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::SAS;
use File::Path;
use ExtUtils::MakeMaker;
# avoid environment variables interfering with our make runs
delete @ENV{qw(LIB MAKEFLAGS)};
my $perl = which_perl();
my $make = make_run();
my $makefile = makefile_name();
chdir 't';
perl_lib();
ok( setup_recurs(), 'setup' );
END {
ok( chdir(File::Spec->updir), 'leaving dir' );
ok( teardown_recurs(), 'teardown' );
}
ok( chdir $MakeMaker::Test::Setup::SAS::dirname, "entering dir $MakeMaker::Test::Setup::SAS::dirname" ) ||
diag("chdir failed: $!");
note "argument verification"; {
my $stdout = tie *STDOUT, 'TieOut';
ok( $stdout, 'capturing stdout' );
my $warnings = '';
local $SIG{__WARN__} = sub {
$warnings .= join '', @_;
};
eval {
WriteMakefile(
NAME => 'Multiple::Authors',
AUTHOR => ['John Doe <jd@example.com>', 'Jane Doe <jd@example.com>'],
);
};
is( $warnings, '', 'arrayref in AUTHOR does not trigger a warning' );
is( $@, '', ' nor a hard failure' );
}
note "argument verification via CONFIGURE"; {
my $stdout = tie *STDOUT, 'TieOut';
ok( $stdout, 'capturing stdout' );
my $warnings = '';
local $SIG{__WARN__} = sub {
$warnings .= join '', @_;
};
eval {
WriteMakefile(
NAME => 'Multiple::Authors',
CONFIGURE => sub {
return {AUTHOR => 'John Doe <jd@example.com>',};
},
);
};
is( $warnings, '', 'scalar in AUTHOR inside CONFIGURE does not trigger a warning' );
is( $@, '', ' nor a hard failure' );
}
note "generated files verification"; {
unlink $makefile;
my @mpl_out = run(qq{$perl Makefile.PL});
END { unlink $makefile, makefile_backup() }
cmp_ok( $?, '==', 0, 'Makefile.PL exiting normally' ) || diag(@mpl_out);
ok( -e $makefile, 'Makefile present' );
}
note "ppd output"; {
my $ppd_file = 'Multiple-Authors.ppd';
my @make_out = run(qq{$make ppd});
END { unlink $ppd_file }
cmp_ok( $?, '==', 0, 'Make ppd exiting normally' ) || diag(@make_out);
my $ppd_html = slurp($ppd_file);
ok( defined($ppd_html), ' .ppd file present' );
like( $ppd_html, qr{John Doe <jd\@example.com>, Jane Doe <jd\@example.com>},
' .ppd file content good' );
}
note "META.yml output"; {
my $distdir = 'Multiple-Authors-0.05';
$distdir =~ s{\.}{_}g if $Is_VMS;
my $meta_yml = "$distdir/META.yml";
my $meta_json = "$distdir/META.json";
my @make_out = run(qq{$make metafile});
END { rmtree $distdir }
cmp_ok( $?, '==', 0, 'Make metafile exiting normally' ) || diag(@make_out);
for my $case (
['META.yml', $meta_yml],
['META.json', $meta_json],
) {
my ($label, $meta_name) = @$case;
ok(
my $obj = eval {
CPAN::Meta->load_file($meta_name, {lazy_validation => 0})
},
"$label validates"
);
is_deeply( [ $obj->authors ],
[
q{John Doe <jd@example.com>},
q{Jane Doe <jd@example.com>},
],
"$label content good"
);
}
}
|
