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
|
use strict;
use warnings;
use Test::More;
# try LGP2 license
my $class = 'Software::LicenseMoreUtils';
require_ok($class);
subtest 'with summary' => sub {
foreach my $short (qw/GPL-2 LGPL-2 Apache_2_0 Artistic_1_0 CC0-1.0/) {
my $license = $class->new_from_short_name({
short_name => $short,
holder => 'X. Ample'
});
my $text = $license->summary_or_text;
if ($license->distribution eq 'debian') {
like($text, qr/common-licenses/i, "$short summary found");
}
else {
unlike($text, qr/common-licenses/i, "$short summary not found");
}
like($text, qr/X. Ample/, "found copyright notice");
my $license2 = $class->new_from_short_name({short_name => $short});
unlike($license2->summary_or_text, qr/^This software is Copyright \(c\)/, "no copyright notice");
}
};
subtest 'without summary' => sub {
my %no_summary = (
'Expat' => qr/substantial/i,
'BSD-3-clause' => qr/The \(three-clause\) BSD License/,
);
foreach my $short (sort keys %no_summary) {
my $license = $class->new_from_short_name({
short_name => $short,
holder => 'X. Ample'
});
my $text = $license->summary_or_text;
like($text, $no_summary{$short}, "$short license text found");
like($text, qr/X. Ample/, "found copyright notice");
my $license2 = $class->new_from_short_name({short_name => $short});
unlike($license2->summary_or_text, qr/^This software is Copyright \(c\)/, "no copyright notice");
}
};
subtest 'with notice and summary' => sub {
my $short = 'GFDL_1_2';
my $license = $class->new_from_short_name({
short_name => $short,
holder => 'X. Ample'
});
like($license->summary_or_text, qr/X. Ample/, "$short notice found");
if ($license->distribution eq 'debian') {
like($license->summary_or_text, qr/common-licenses/i, "$short summary found");
}
};
subtest 'with notice and no summary' => sub {
my $short = 'Perl_5';
my $license = $class->new_from_short_name({
short_name => $short,
holder => 'X. Ample'
});
like($license->summary_or_text, qr/X. Ample/, "$short notice found");
like($license->summary_or_text, qr/Terms of the Perl programming language/i, "$short full text found");
};
done_testing;
|
