Blame t/creative_commons.t
|
Packit |
bcfb5a |
#!perl
|
|
Packit |
bcfb5a |
|
|
Packit |
bcfb5a |
use strict;
|
|
Packit |
bcfb5a |
use warnings;
|
|
Packit |
bcfb5a |
use Test::More;
|
|
Packit |
bcfb5a |
use Software::LicenseUtils;
|
|
Packit |
bcfb5a |
|
|
Packit |
bcfb5a |
BEGIN {
|
|
Packit |
bcfb5a |
eval "require Software::License::CC_BY_1_0; 1"
|
|
Packit |
bcfb5a |
or plan skip_all => "requires Software::License::CCpack to test this";
|
|
Packit |
bcfb5a |
}
|
|
Packit |
bcfb5a |
|
|
Packit |
bcfb5a |
{
|
|
Packit |
bcfb5a |
my $license = Software::License::CC_BY_1_0->new({holder => 'DUMMY'})->notice;
|
|
Packit |
bcfb5a |
my $pod = "=head1 LICENSE\n\n$license\n=cut\n";
|
|
Packit |
bcfb5a |
is_deeply(
|
|
Packit |
bcfb5a |
[Software::LicenseUtils->guess_license_from_pod($pod)],
|
|
Packit |
bcfb5a |
['Software::License::CC_BY_1_0'],
|
|
Packit |
bcfb5a |
);
|
|
Packit |
bcfb5a |
}
|
|
Packit |
bcfb5a |
|
|
Packit |
bcfb5a |
done_testing;
|