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
|
#!/usr/bin/perl -w
use strict;
use Test::More;
# Skip if doing a regular install
plan skip_all => "Author tests not required for installation"
unless ( $ENV{AUTHOR_TESTING} );
eval 'use Test::CPAN::Meta::JSON';
plan skip_all => 'Test::CPAN::Meta::JSON required for testing META.json files' if $@;
plan 'no_plan';
exit; # Don't use our own META.json file
my $meta = meta_spec_ok(undef,undef,@_);
use Lingua::EN::NameCase;
my $version = $Lingua::EN::NameCase::VERSION;
is($meta->{version},$version,
'META.json distribution version matches');
if($meta->{provides}) {
for my $mod (keys %{$meta->{provides}}) {
is($meta->{provides}{$mod}{version},$version,
"META.json entry [$mod] version matches distribution version");
eval "require $mod";
my $VERSION = '$' . $mod . '::VERSION';
my $v = eval "$VERSION";
is($meta->{provides}{$mod}{version},$v,
"META.json entry [$mod] version matches module version");
isnt($meta->{provides}{$mod}{version},0);
}
}
|
