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
|
#!/usr/bin/perl
use 5.006;
use strict; use warnings;
use PDF::Create;
use Test::More;
eval "use Test::CPAN::Meta::JSON";
plan skip_all => "Test::CPAN::Meta::JSON required for testing MYMETA.json" if $@;
my $meta = meta_spec_ok('MYMETA.json');
my $version = $PDF::Create::VERSION;
is($meta->{version}, $version, 'MYMETA.json distribution version matches');
if($meta->{provides}) {
for my $mod (keys %{$meta->{provides}}) {
eval("use $mod;");
my $mod_version = eval(sprintf("\$%s::VERSION", $mod));
is($meta->{provides}{$mod}{version}, $version, "MYMETA.json entry [$mod] version matches");
is($mod_version, $version, "Package $mod doesn't match version.");
}
}
done_testing();
|
