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
|
#!/usr/bin/perl -w
use strict;
use lib 't/lib';
use MBTest;
plan tests => 24;
blib_load('Module::Build');
blib_load('Module::Build::YAML');
my $tmp = MBTest->tmpdir;
use DistGen;
my $dist = DistGen->new( dir => $tmp );
$dist->change_file('Build.PL', <<"---");
use strict;
use Module::Build;
my \$builder = Module::Build->new(
module_name => '$dist->{name}',
license => 'perl',
requires => {
'File::Spec' => ( \$ENV{BUMP_PREREQ} ? 0.86 : 0 ),
},
);
\$builder->create_build_script();
---
$dist->regen;
$dist->chdir_in;
#########################
# Test MYMETA generation
{
ok( ! -e "META.yml", "META.yml doesn't exist before Build.PL runs" );
ok( ! -e "MYMETA.yml", "MYMETA.yml doesn't exist before Build.PL runs" );
my $output;
$output = stdout_of sub { $dist->run_build_pl };
like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
"Ran Build.PL and saw MYMETA.yml creation message"
);
ok( -e "MYMETA.yml", "MYMETA.yml exists" );
}
#########################
# Test interactions between META/MYMETA
{
my $output = stdout_of sub { $dist->run_build('distmeta') };
like($output, qr/Creating META.yml/,
"Ran Build distmeta to create META.yml");
my $meta = Module::Build::YAML->read('META.yml')->[0];
my $mymeta = Module::Build::YAML->read('MYMETA.yml')->[0];
is( delete $mymeta->{dynamic_config}, 0,
"MYMETA 'dynamic_config' is 0"
);
is_deeply( $meta, $mymeta, "Other generated MYMETA matches generated META" );
$output = stdout_stderr_of sub { $dist->run_build('realclean') };
like( $output, qr/Cleaning up/, "Ran realclean");
ok( ! -e 'Build', "Build file removed" );
ok( ! -e 'MYMETA.yml', "MYMETA file removed" );
# test that dynamic prereq is picked up
local $ENV{BUMP_PREREQ} = 1;
$output = stdout_of sub { $dist->run_build_pl };
like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
"Ran Build.PL with dynamic config"
);
ok( -e "MYMETA.yml", "MYMETA.yml exists" );
$mymeta = Module::Build::YAML->read('MYMETA.yml')->[0];
isnt( $meta->{requires}{'File::Spec'},
$mymeta->{requires}{'File::Spec'},
"MYMETA requires differs from META"
);
$output = stdout_stderr_of sub { $dist->run_build('realclean') };
like( $output, qr/Cleaning up/, "Ran realclean");
ok( ! -e 'Build', "Build file removed" );
ok( ! -e 'MYMETA.yml', "MYMETA file removed" );
# manually change META and check that changes are preserved
$meta->{author} = ['John Gault'];
ok( Module::Build::YAML->new($meta)->write('META.yml'),
"Wrote manually modified META.yml" );
$output = stdout_of sub { $dist->run_build_pl };
like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
"Ran Build.PL"
);
my $mymeta2 = Module::Build::YAML->read('MYMETA.yml')->[0];
is_deeply( $mymeta2->{author}, [ 'John Gault' ],
"MYMETA preserved META modifications"
);
}
#########################
# Test cleanup
{
my $output = stdout_stderr_of sub { $dist->run_build('distcheck') };
like($output, qr/Creating a temporary 'MANIFEST.SKIP'/,
"MANIFEST.SKIP created for distcheck"
);
unlike($output, qr/MYMETA/,
"MYMETA not flagged by distcheck"
);
}
{
my $output = stdout_of sub { $dist->run_build_pl };
like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
"Ran Build.PL and saw MYMETA.yml creation message"
);
$output = stdout_stderr_of sub { $dist->run_build('distclean') };
ok( ! -f 'MYMETA.yml', "No MYMETA.yml after distclean" );
ok( ! -f 'MANIFEST.SKIP', "No MANIFEST.SKIP after distclean" );
}
|
