Add patch to add Files-Excluded as a valid field
in Debian::Copyright::Stanza::Header.
Closes: #781369
gregor herrmann
8 years ago
| 0 | Description: Add Files-Excluded field to header stanza | |
| 1 | Origin: vendor | |
| 2 | Bug-Debian: https://bugs.debian.org/781369 | |
| 3 | Author: gregor herrmann <gregoa@debian.org> | |
| 4 | Last-Update: 2016-03-02 | |
| 5 | Forwarded: https://rt.cpan.org/Ticket/Display.html?id=112637 | |
| 6 | Bug: https://rt.cpan.org/Ticket/Display.html?id=112637 | |
| 7 | ||
| 8 | --- a/t/01.basic.t | |
| 9 | +++ b/t/01.basic.t | |
| 10 | @@ -1,4 +1,4 @@ | |
| 11 | -use Test::More tests => 37; | |
| 12 | +use Test::More tests => 38; | |
| 13 | ||
| 14 | use Debian::Copyright; | |
| 15 | ||
| 16 | @@ -12,6 +12,7 @@ | |
| 17 | isa_ok($copyright, 'Debian::Copyright'); | |
| 18 | $copyright->read('t/data/copyright'); | |
| 19 | like($copyright->header, qr{\AFormat:\s}xms, 'Header stanza'); | |
| 20 | +is($copyright->header->Files_Excluded, 'none', 'Files-Excluded header'); | |
| 21 | is($copyright->files->Length, 2, 'files length'); | |
| 22 | is($copyright->files->Keys(0), '*', 'key files(0)'); | |
| 23 | is($copyright->files->Values(0)->Files, '*', 'files(0)->Files'); | |
| 24 | --- a/t/data/copyright | |
| 25 | +++ b/t/data/copyright | |
| 26 | @@ -2,6 +2,7 @@ | |
| 27 | Upstream-Name: pkg-components | |
| 28 | Upstream-Contact: Nicholas Bamber <nicholas@periapt.co.uk> | |
| 29 | Source: http://github.com/periapt/pkg-components | |
| 30 | +Files-Excluded: none | |
| 31 | ||
| 32 | Files: * | |
| 33 | Copyright: | |
| 34 | --- a/lib/Debian/Copyright/Stanza/Header.pm | |
| 35 | +++ b/lib/Debian/Copyright/Stanza/Header.pm | |
| 36 | @@ -43,6 +43,8 @@ | |
| 37 | ||
| 38 | =item Copyright | |
| 39 | ||
| 40 | +=item Files_Excluded | |
| 41 | + | |
| 42 | =back | |
| 43 | ||
| 44 | =cut | |
| 45 | @@ -62,6 +64,7 @@ | |
| 46 | Comment | |
| 47 | License | |
| 48 | Copyright | |
| 49 | + Files_Excluded | |
| 50 | ); | |
| 51 | ||
| 52 | our $VERSION = '0.2'; |