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
|
use strict;
use warnings;
use Test::More 0.88;
use CPAN::Meta;
use File::Temp 0.20 ();
use Parse::CPAN::Meta 1.4400;
my $distmeta = {
name => 'Module-Build',
abstract => 'Build and install Perl modules',
description => "Module::Build is a system for building, testing, "
. "and installing Perl modules. It is meant to be an "
. "alternative to ExtUtils::MakeMaker... blah blah blah",
version => '0.36',
author => [
'Ken Williams <kwilliams@cpan.org>',
'Module-Build List <module-build@perl.org>', # additional contact
],
release_status => 'stable',
license => [ 'perl_5' ],
prereqs => {
runtime => {
requires => {
'perl' => '5.006',
'Config' => '0',
'Cwd' => '0',
'Data::Dumper' => '0',
'ExtUtils::Install' => '0',
'File::Basename' => '0',
'File::Compare' => '0',
'File::Copy' => '0',
'File::Find' => '0',
'File::Path' => '0',
'File::Spec' => '0',
'IO::File' => '0',
},
recommends => {
'Archive::Tar' => '1.00',
'ExtUtils::Install' => '0.3',
'ExtUtils::ParseXS' => '2.02',
'Pod::Text' => '0',
'YAML' => '0.35',
},
},
build => {
requires => {
'Test::More' => '0',
},
}
},
resources => {
license => ['http://dev.perl.org/licenses/'],
},
optional_features => {
domination => {
description => 'Take over the world',
prereqs => {
develop => { requires => { 'Genius::Evil' => '1.234' } },
runtime => { requires => { 'Machine::Weather' => '2.0' } },
},
},
},
dynamic_config => 1,
keywords => [ qw/ toolchain cpan dual-life / ],
'meta-spec' => {
version => '2',
url => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
},
generated_by => 'Module::Build version 0.36',
};
my $meta = CPAN::Meta->new( $distmeta );
my $tmpdir = File::Temp->newdir();
my $metafile = File::Spec->catfile( $tmpdir, 'META.json' );
ok( $meta->save($metafile), "save returns true" );
ok( -f $metafile, "save meta to file" );
ok( my $loaded = Parse::CPAN::Meta->load_file($metafile), 'load saved file' );
is($loaded->{name}, 'Module-Build', 'name correct');
ok( $loaded = Parse::CPAN::Meta->load_file('t/data/META-1_4.yml'), 'load META-1.4' );
is($loaded->{name}, 'Module-Build', 'name correct');
# Test saving with conversion
my $metayml = File::Spec->catfile( $tmpdir, 'META.yml' );
$meta->save($metayml, {version => "1.4"});
ok( -f $metayml, "save meta to META.yml with conversion" );
ok( $loaded = Parse::CPAN::Meta->load_file($metayml), 'load saved file' );
is( $loaded->{name}, 'Module-Build', 'name correct');
is( $loaded->{requires}{perl}, "5.006", 'prereq correct' );
done_testing;
|
