From a60eb552d37896bceabc1e5def40337df8ba21e7 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Sat, 5 Aug 2017 09:19:19 -0400
Subject: [PATCH] Split bug tests into separate chunk

---
 qpdf/qtest/qpdf.test | 35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index 2fff85b..0b75559 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -205,21 +205,9 @@ $td->runtest("remove page we don't have",
 	     $td->NORMALIZE_NEWLINES);
 show_ntests();
 # ----------
-$td->notify("--- Miscellaneous Tests ---");
-$n_tests += 95;
-
-$td->runtest("qpdf version",
-	     {$td->COMMAND => "qpdf --version"},
-	     {$td->REGEXP => "qpdf version \\S+\n.*", $td->EXIT_STATUS => 0},
-	     $td->NORMALIZE_NEWLINES);
-$td->runtest("C API: qpdf version",
-	     {$td->COMMAND => "qpdf-ctest --version"},
-	     {$td->REGEXP => "qpdf-ctest version \\S+\n",
-	      $td->EXIT_STATUS => 0},
-	     $td->NORMALIZE_NEWLINES);
-
-# Files to reproduce various bugs
-foreach my $d (
+$td->notify("--- Files for specific bugs ---");
+# The number is the github issue number in which the bug was reported.
+my @bug_tests = (
     ["51", "resolve loop", 3],
     ["99", "object 0", 2],
     ["99b", "object 0", 2],
@@ -230,7 +218,9 @@ foreach my $d (
     ["119", "other infinite loop", 3],
     ["120", "other infinite loop", 3],
     ["106", "zlib data error", 3],
-    )
+    );
+$n_tests += scalar(@bug_tests);
+foreach my $d (@bug_tests)
 {
     my ($n, $description, $exit_status) = @$d;
     $td->runtest($description,
@@ -239,7 +229,20 @@ foreach my $d (
                   $td->EXIT_STATUS => $exit_status},
                  $td->NORMALIZE_NEWLINES);
 }
+show_ntests();
+# ----------
+$td->notify("--- Miscellaneous Tests ---");
+$n_tests += 85;
 
+$td->runtest("qpdf version",
+	     {$td->COMMAND => "qpdf --version"},
+	     {$td->REGEXP => "qpdf version \\S+\n.*", $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
+$td->runtest("C API: qpdf version",
+	     {$td->COMMAND => "qpdf-ctest --version"},
+	     {$td->REGEXP => "qpdf-ctest version \\S+\n",
+	      $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
 
 foreach (my $i = 1; $i <= 3; ++$i)
 {
--
libgit2 0.21.4