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
|
#!perl
use strict;
use warnings;
use Test::More;
use Software::LicenseUtils;
{
# excerpt from BSD License
my $license = <<'LICENSE';
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
* Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* Neither the name of {{$self->holder}} nor the names of its
contributors may be used to endorse or promote products derived from
this software without specific prior written permission.
LICENSE
my $pod = "=head1 LICENSE\n\n".$license."\n=cut\n";
is_deeply(
[ Software::LicenseUtils->guess_license_from_pod($pod) ],
[ ], # should eventually be [ 'Software::License::BSD' ],
);
}
done_testing;
|
