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 XML::XPath;
use Test::More;
eval "use Test::CPAN::Meta";
plan skip_all => "Test::CPAN::Meta required for testing MYMETA.yml" if $@;
my $meta = meta_spec_ok('MYMETA.yml');
my $version = $XML::XPath::VERSION;
is($meta->{version}, $version, 'MYMETA.yml 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.yml entry [$mod] version matches");
is($mod_version, $version, "Package $mod doesn't match version.");
}
}
done_testing();
|
