parse dzil {{$NEXT}} tokens in corpus

metacpan · Oct 12, 2016 · 124887b · 124887b
1 parent adbafa4
commit 124887b
Show file tree

Hide file tree

Showing 11 changed files with 81 additions and 20 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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 {