From 124887b3e224b1bd9d73f85eff1b567dc270e374 Mon Sep 17 00:00:00 2001 From: Graham Knop Date: Wed, 12 Oct 2016 15:14:22 -0400 Subject: [PATCH] parse dzil {{$NEXT}} tokens in corpus --- corpus/dists/Archer.parsed | 10 ++++++++-- corpus/dists/BreadBoard.parsed | 10 ++++++++-- corpus/dists/Convert-BinHex.parsed | 17 +++++++++++++++-- corpus/dists/Data-Monad.parsed | 10 ++++++++-- corpus/dists/Email-MIME-ContentType.parsed | 10 ++++++++-- corpus/dists/Net-DNS-SPF-Expander.parsed | 10 ++++++++-- corpus/dists/Ubic-Service-Plack.parsed | 10 ++++++++-- corpus/dists/Ubic.parsed | 10 ++++++++-- corpus/dists/WWW-YouTube-Download.parsed | 10 ++++++++-- t/corpus.t | 2 +- t/raw.t | 2 +- 11 files changed, 81 insertions(+), 20 deletions(-) diff --git a/corpus/dists/Archer.parsed b/corpus/dists/Archer.parsed index 5d85811..1a304e0 100644 --- a/corpus/dists/Archer.parsed +++ b/corpus/dists/Archer.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Archer\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Archer\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Archer", + "raw_preamble" => "Revision history for Archer\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-07-25T06:32:29Z", "entries" => [ diff --git a/corpus/dists/BreadBoard.parsed b/corpus/dists/BreadBoard.parsed index 1917e60..025efe7 100644 --- a/corpus/dists/BreadBoard.parsed +++ b/corpus/dists/BreadBoard.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Bread-Board\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Bread-Board\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Bread-Board", + "raw_preamble" => "Revision history for Bread-Board\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2014-02-02", "entries" => [ diff --git a/corpus/dists/Convert-BinHex.parsed b/corpus/dists/Convert-BinHex.parsed index fbc1eae..6de7c61 100644 --- a/corpus/dists/Convert-BinHex.parsed +++ b/corpus/dists/Convert-BinHex.parsed @@ -1,7 +1,20 @@ { - "preamble" => "Revision history for Perl module Convert::BinHex\n\n{{\$NEXT}}\n\t- Fixed pod error in debinhex and added pod tests", - "raw_preamble" => "Revision history for Perl module Convert::BinHex\n\n{{\$NEXT}}\n\t- Fixed pod error in debinhex and added pod tests\n\n", + "preamble" => "Revision history for Perl module Convert::BinHex", + "raw_preamble" => "Revision history for Perl module Convert::BinHex\n\n", "releases" => [ + { + "entries" => [ + { + "line" => 4, + "raw" => "\t- Fixed pod error in debinhex and added pod tests\n\n", + "style" => "-", + "text" => "Fixed pod error in debinhex and added pod tests" + } + ], + "line" => 3, + "raw" => "{{\$NEXT}}\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-08-25", "entries" => [ diff --git a/corpus/dists/Data-Monad.parsed b/corpus/dists/Data-Monad.parsed index 601e761..01a7530 100644 --- a/corpus/dists/Data-Monad.parsed +++ b/corpus/dists/Data-Monad.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Perl extension Data::Monad\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Perl extension Data::Monad\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Perl extension Data::Monad", + "raw_preamble" => "Revision history for Perl extension Data::Monad\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-09-08T00:23:32Z", "entries" => [ diff --git a/corpus/dists/Email-MIME-ContentType.parsed b/corpus/dists/Email-MIME-ContentType.parsed index d7f75fb..052394c 100644 --- a/corpus/dists/Email-MIME-ContentType.parsed +++ b/corpus/dists/Email-MIME-ContentType.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Perl extension Email::MIME::ContentType\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Perl extension Email::MIME::ContentType\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Perl extension Email::MIME::ContentType", + "raw_preamble" => "Revision history for Perl extension Email::MIME::ContentType\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-08-10T23:19:14Z", "entries" => [ diff --git a/corpus/dists/Net-DNS-SPF-Expander.parsed b/corpus/dists/Net-DNS-SPF-Expander.parsed index e1d7b6a..c6168e6 100644 --- a/corpus/dists/Net-DNS-SPF-Expander.parsed +++ b/corpus/dists/Net-DNS-SPF-Expander.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for {{\$dist->name}}\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for {{\$dist->name}}\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for {{\$dist->name}}", + "raw_preamble" => "Revision history for {{\$dist->name}}\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-07-29", "entries" => [ diff --git a/corpus/dists/Ubic-Service-Plack.parsed b/corpus/dists/Ubic-Service-Plack.parsed index 54c5c5f..3a05939 100644 --- a/corpus/dists/Ubic-Service-Plack.parsed +++ b/corpus/dists/Ubic-Service-Plack.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Ubic-Service-Plack\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Ubic-Service-Plack\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Ubic-Service-Plack", + "raw_preamble" => "Revision history for Ubic-Service-Plack\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "entries" => [ { diff --git a/corpus/dists/Ubic.parsed b/corpus/dists/Ubic.parsed index a82a5e9..b999d21 100644 --- a/corpus/dists/Ubic.parsed +++ b/corpus/dists/Ubic.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Ubic\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Ubic\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Ubic", + "raw_preamble" => "Revision history for Ubic\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-07-26", "entries" => [ diff --git a/corpus/dists/WWW-YouTube-Download.parsed b/corpus/dists/WWW-YouTube-Download.parsed index db1471f..f03bcd8 100644 --- a/corpus/dists/WWW-YouTube-Download.parsed +++ b/corpus/dists/WWW-YouTube-Download.parsed @@ -1,7 +1,13 @@ { - "preamble" => "Revision history for Perl extension WWW::YouTube::Download\n\n{{\$NEXT}}", - "raw_preamble" => "Revision history for Perl extension WWW::YouTube::Download\n\n{{\$NEXT}}\n\n", + "preamble" => "Revision history for Perl extension WWW::YouTube::Download", + "raw_preamble" => "Revision history for Perl extension WWW::YouTube::Download\n\n", "releases" => [ + { + "entries" => [], + "line" => 3, + "raw" => "{{\$NEXT}}\n\n", + "version" => "{{\$NEXT}}" + }, { "date" => "2013-07-27T09:21:38Z", "entries" => [ diff --git a/t/corpus.t b/t/corpus.t index 245aab7..02204e1 100644 --- a/t/corpus.t +++ b/t/corpus.t @@ -36,7 +36,7 @@ GetOptions( 'update' => \(my $update), ) or die "Bad command line arguments.\n"; -my $parser = CPAN::Changes::Parser->new; +my $parser = CPAN::Changes::Parser->new(version_like => qr/\{\{\s*\$NEXT\s*\}\}/); for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) { my $content = do { diff --git a/t/raw.t b/t/raw.t index 5f2a66e..3417ac7 100644 --- a/t/raw.t +++ b/t/raw.t @@ -18,7 +18,7 @@ sub _eq { } } -my $parser = CPAN::Changes::Parser->new; +my $parser = CPAN::Changes::Parser->new(version_like => qr/\{\{\s*\$NEXT\s*\}\}/); for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) { my $content = do {