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
|
use strict;
use warnings;
use Test::More 0.96;
my $mod = 'Dist::Metadata';
eval "require $mod" or die $@;
{
foreach my $test (
[
{
buzzwords => {
file => 'lib/buzzwords.pm',
version => '0.1',
},
},
{
buzzwords => '0.1',
}
],
[
{
fulfillment_issues => {
file => 'lib/fulfillment_issues.pm'
}
},
{
fulfillment_issues => undef,
}
],
[
{
'Design::Patterns' => {
file => 'lib/Design/Patterns.pm',
version => 0.2
},
'Paradigm::Shift' => {
file => 'lib/Paradigm/Shift.pm',
version => 'v1.3.5',
}
},
{
'Design::Patterns' => 0.2,
'Paradigm::Shift' => 'v1.3.5',
},
],
){
my ($provides, $exp) = @$test;
is_deeply($mod->package_versions($provides), $exp, 'package_versions');
}
}
done_testing;
|
