Reorganize some test cases

Too many test cases were "miscellaneous".

Reorganize some test cases
Too many test cases were "miscellaneous".
Jay Berkenbilt
1 parent d0e99f19
Showing 7 changed files with 228 additions and 102 deletions
qpdf/qtest/qpdf.test
qpdf/qtest/qpdf/misc-1.out → qpdf/qtest/qpdf/numeric-and-string-1.out
qpdf/qtest/qpdf/misc-1.pdf → qpdf/qtest/qpdf/numeric-and-string-1.pdf
qpdf/qtest/qpdf/misc-2.out → qpdf/qtest/qpdf/numeric-and-string-2.out
qpdf/qtest/qpdf/misc-2.pdf → qpdf/qtest/qpdf/numeric-and-string-2.pdf
qpdf/qtest/qpdf/misc-3.out → qpdf/qtest/qpdf/numeric-and-string-3.out
qpdf/qtest/qpdf/misc-3.pdf → qpdf/qtest/qpdf/numeric-and-string-3.pdf
@@ -239,8 +239,8 @@ foreach my $d (@bug_tests)
 }
 show_ntests();
 # ----------
-$td->notify("--- Miscellaneous Tests ---");
-$n_tests += 99;
+$td->notify("--- Library version ---");
+$n_tests += 2;
 $td->runtest("qpdf version",
 	     {$td->COMMAND => "qpdf --version"},
@@ -252,6 +252,11 @@ $td-&gt;runtest(&quot;C API: qpdf version&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Linearize pass1 file ---");
+$n_tests += 3;
+
 $td->runtest("linearize pass 1 file",
              {$td->COMMAND => "qpdf --linearize --static-id" .
                   " --linearize-pass1=b.pdf minimal.pdf a.pdf"},
@@ -263,6 +268,11 @@ $td-&gt;runtest(&quot;check pass1 file&quot;,
 	     {$td->FILE => "b.pdf"},
 	     {$td->FILE => "minimal-linearize-pass1.pdf"});
+show_ntests();
+# ----------
+$td->notify("--- Tokenizer ---");
+$n_tests += 4;
+
 $td->runtest("tokenizer with no ignorable",
              {$td->COMMAND => "test_tokenizer -no-ignorable tokens.pdf"},
              {$td->FILE => "tokens-no-ignorable.out", $td->EXIT_STATUS => 0},
@@ -278,19 +288,42 @@ $td-&gt;runtest(&quot;tokenizer with max_len&quot;,
              {$td->FILE => "tokens-maxlen.out", $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
+$td->runtest("ignore bad token",
+             {$td->COMMAND =>
+                  "qpdf --show-xref bad-token-startxref.pdf"},
+             {$td->FILE => "bad-token-startxref.out",
+              $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
+$td->notify("--- Numbers and strings ---");
+$n_tests += 3;
+
 foreach (my $i = 1; $i <= 3; ++$i)
 {
-    $td->runtest("misc tests",
-		 {$td->COMMAND => "test_driver 5 misc-$i.pdf"},
-		 {$td->FILE => "misc-$i.out", $td->EXIT_STATUS => 0},
+    $td->runtest("numbers and strings",
+		 {$td->COMMAND => "test_driver 5 numeric-and-string-$i.pdf"},
+		 {$td->FILE => "numeric-and-string-$i.out",
+                      $td->EXIT_STATUS => 0},
 		 $td->NORMALIZE_NEWLINES);
 }
+show_ntests();
+# ----------
+$td->notify("--- Stream data ---");
+$n_tests += 1;
+
 $td->runtest("get stream data",
 	     {$td->COMMAND => "test_driver 11 stream-data.pdf"},
 	     {$td->FILE => "test11.out", $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Decode parameter problems ---");
+$n_tests += 4;
+
 # Make sure we ignore decode parameters that we don't understand
 $td->runtest("unknown decode parameters",
 	     {$td->COMMAND => "qpdf --check fax-decode-parms.pdf"},
@@ -298,6 +331,25 @@ $td-&gt;runtest(&quot;unknown decode parameters&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+$td->runtest("ignore broken decode parms with no filters",
+             {$td->COMMAND => "qpdf --check broken-decode-parms-no-filter.pdf"},
+             {$td->FILE => "broken-decode-parms-no-filter.out",
+              $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
+$td->runtest("stream with indirect decode parms",
+             {$td->COMMAND =>
+                  "qpdf --static-id indirect-decode-parms.pdf a.pdf"},
+             {$td->STRING => "", $td->EXIT_STATUS => 0});
+$td->runtest("check file",
+             {$td->FILE => "a.pdf"},
+             {$td->FILE => "indirect-decode-parms-out.pdf"});
+
+show_ntests();
+# ----------
+$td->notify("--- Cross reference streams ---");
+$n_tests += 3;
+
 # Handle xref stream with more entries than reported (bug 2872265)
 $td->runtest("xref with short size",
 	     {$td->COMMAND => "qpdf --show-xref xref-with-short-size.pdf"},
@@ -315,6 +367,11 @@ $td-&gt;runtest(&quot;show new xref stream&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Multiple levels of indirection ---");
+$n_tests += 2;
+
 # Handle file with object stream containing an unreferenced object
 # that in turn contains an indirect scalar (bug 2974522).
 $td->runtest("unreferenced indirect scalar",
@@ -328,6 +385,11 @@ $td-&gt;runtest(&quot;check output&quot;,
 	     {$td->FILE => "a.qdf"},
 	     {$td->FILE => "unreferenced-indirect-scalar.out"});
+show_ntests();
+# ----------
+$td->notify("--- ID and Encryption Parameter Issues ---");
+$n_tests += 12;
+
 # Encrypt files whose /ID strings are other than 32 bytes long (bug
 # 2991412). Also linearize these files, which was reported in a
 # separate bug by email.
@@ -364,13 +426,28 @@ foreach my $file (qw(short-id long-id))
 		 $td->NORMALIZE_NEWLINES);
 }
-# Handle file with invalid xref table and object 0 as a regular object
-# (bug 3159950).
-$td->runtest("check obj0.pdf",
-	     {$td->COMMAND => "qpdf --check obj0.pdf"},
-	     {$td->FILE => "obj0-check.out",
-	      $td->EXIT_STATUS => 3},
-	     $td->NORMALIZE_NEWLINES);
+# A user provided a file that was missing /ID in its trailer even
+# though it is encrypted and also has a space instead of a newline
+# after its xref keyword. This file has those same properties.
+$td->runtest("check broken file",
+             {$td->COMMAND => "qpdf --check invalid-id-xref.pdf"},
+             {$td->FILE => "invalid-id-xref.out", $td->EXIT_STATUS => 3},
+             $td->NORMALIZE_NEWLINES);
+
+# A file was emailed privately with issue 96. short-O-U.pdf was
+# created by copying encryption parameters from that file. It exhibits
+# the same behavior as the original file.
+$td->runtest("short /O or /U",
+             {$td->COMMAND =>
+                  "qpdf --password=19723102477 --check short-O-U.pdf"},
+             {$td->FILE => "short-O-U.out",
+              $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
+$td->notify("--- Min/force version ---");
+$n_tests += 7;
 # Min/Force version
 $td->runtest("set min version",
@@ -410,6 +487,11 @@ $td-&gt;runtest(&quot;C check version 2&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Filter abbreviations ---");
+$n_tests += 2;
+
 # Stream filter abbreviations from table H.1
 $td->runtest("stream filter abbreviations",
 	     {$td->COMMAND => "qpdf --static-id filter-abbreviation.pdf a.pdf"},
@@ -420,12 +502,27 @@ $td-&gt;runtest(&quot;check output&quot;,
 	     {$td->FILE => "a.pdf"},
 	     {$td->FILE => "filter-abbreviation.out"});
+show_ntests();
+# ----------
+$td->notify("--- Invalid objects ---");
+$n_tests += 2;
+
 $td->runtest("empty object",
 	     {$td->COMMAND => "qpdf -show-object=7,0 empty-object.pdf"},
 	     {$td->FILE => "empty-object.out",
 	      $td->EXIT_STATUS => 3},
 	     $td->NORMALIZE_NEWLINES);
+$td->runtest("object with zero offset",
+             {$td->COMMAND => "qpdf --check zero-offset.pdf"},
+             {$td->FILE => "zero-offset.out", $td->EXIT_STATUS => 3},
+             $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
+$td->notify("--- Error/output rediction ---");
+$n_tests += 2;
+
 $td->runtest("error/output redirection to null",
 	     {$td->COMMAND => "test_driver 12 linearized-and-warnings.pdf"},
 	     {$td->FILE => "linearized-and-warnings-1.out",
@@ -438,6 +535,11 @@ $td-&gt;runtest(&quot;error/output redirection to strings&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Line terminators for stream ---");
+$n_tests += 2;
+
 $td->runtest("odd terminators for stream keyword",
 	     {$td->COMMAND =>
 		  "qpdf --qdf --static-id" .
@@ -449,6 +551,11 @@ $td-&gt;runtest(&quot;check output&quot;,
 	     {$td->FILE => "a.qdf"},
 	     {$td->FILE => "stream-line-enders.qdf"});
+show_ntests();
+# ----------
+$td->notify("--- Swap and replace ---");
+$n_tests += 3;
+
 $td->runtest("swap and replace",
 	     {$td->COMMAND => "test_driver 14 test14-in.pdf"},
 	     {$td->FILE => "test14.out",
@@ -457,12 +564,20 @@ $td-&gt;runtest(&quot;swap and replace&quot;,
 $td->runtest("check output",
 	     {$td->FILE => "a.pdf"},
 	     {$td->FILE => "test14-out.pdf"});
-# Test 14 also exercises writing to memory without static ID.
+
+# Most of the test suite uses static or deterministic ID. This test
+# case exercises regular ID generation. Test 14 also exercises writing
+# to memory without static ID.
 $td->runtest("check non-static ID version",
              {$td->COMMAND => "sh ./diff-ignore-ID-version a.pdf b.pdf"},
              {$td->STRING => "okay\n", $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Key functions, C API ---");
+$n_tests += 4;
+
 $td->runtest("C API info key functions",
 	     {$td->COMMAND => "qpdf-ctest 16 minimal.pdf '' a.pdf"},
 	     {$td->FILE => "c-info1.out",
@@ -483,6 +598,11 @@ $td-&gt;runtest(&quot;check output&quot;,
 	     {$td->FILE => "c-info-out.pdf"});
 unlink "a.pdf" or die;
+show_ntests();
+# ----------
+$td->notify("--- Object copying ---");
+$n_tests += 7;
+
 $td->runtest("shallow copy an array",
 	     {$td->COMMAND => "test_driver 20 shallow_array.pdf"},
 	     {$td->STRING => "test 20 done\n", $td->EXIT_STATUS => 0},
@@ -510,6 +630,12 @@ $td-&gt;runtest(&quot;detect foreign object in write&quot;,
                   " copy-foreign-objects-in.pdf minimal.pdf"},
              {$td->FILE => "foreign-in-write.out", $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
+$td->notify("--- Parsing ---");
+$n_tests += 17;
+
 $td->runtest("parse objects from string",
              {$td->COMMAND => "test_driver 31 minimal.pdf"}, # file not used
              {$td->FILE => "parse-object.out", $td->EXIT_STATUS => 0},
@@ -538,17 +664,7 @@ $td-&gt;runtest(&quot;check output&quot;,
 $td->runtest("check output",
              {$td->FILE => "d.pdf"},
              {$td->FILE => "extra-header-lin-newline.pdf"});
-$td->runtest("output to custom pipeline",
-             {$td->COMMAND => "test_driver 33 minimal.pdf"},
-             {$td->STRING => "test 33 done\n", $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
-$td->runtest("check output",
-             {$td->FILE => "a.pdf"},
-             {$td->FILE => "custom-pipeline.pdf"});
-$td->runtest("object with zero offset",
-             {$td->COMMAND => "qpdf --check zero-offset.pdf"},
-             {$td->FILE => "zero-offset.out", $td->EXIT_STATUS => 3},
-             $td->NORMALIZE_NEWLINES);
+
 # leading-junk also has a space instead of a newline after xref
 $td->runtest("check file with leading junk",
              {$td->COMMAND => "qpdf --check leading-junk.pdf"},
@@ -575,6 +691,46 @@ $td-&gt;runtest(&quot;content stream errors&quot;,
               $td->EXIT_STATUS => 2},
              $td->NORMALIZE_NEWLINES);
+$td->runtest("ensure arguments to R are direct",
+             {$td->COMMAND => "qpdf --check indirect-r-arg.pdf"},
+             {$td->FILE => "indirect-r-arg.out", $td->EXIT_STATUS => 3},
+             $td->NORMALIZE_NEWLINES);
+$td->runtest("no trailing space in xref table",
+             {$td->COMMAND => "qpdf --check no-space-in-xref.pdf"},
+             {$td->FILE => "no-space-in-xref.out", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
+# An array is split across multiple content streams starting object
+# 42. This was reported in github issue 73. The file is modified from
+# that example.
+$td->runtest("parse split content stream",
+             {$td->COMMAND => "qpdf --check split-content-stream.pdf"},
+             {$td->FILE => "split-content-stream.out", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+$td->runtest("split content stream errors",
+             {$td->COMMAND => "qpdf --check split-content-stream-errors.pdf"},
+             {$td->FILE => "split-content-stream-errors.out",
+              $td->EXIT_STATUS => 3},
+             $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
+$td->notify("--- Custom Pipeline ---");
+$n_tests += 2;
+
+$td->runtest("output to custom pipeline",
+             {$td->COMMAND => "test_driver 33 minimal.pdf"},
+             {$td->STRING => "test 33 done\n", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+$td->runtest("check output",
+             {$td->FILE => "a.pdf"},
+             {$td->FILE => "custom-pipeline.pdf"});
+
+show_ntests();
+# ----------
+$td->notify("--- Object stream cases ---");
+$n_tests += 3;
+
 # The file override-compressed-object.pdf contains an object stream
 # with four strings in it.  The file is then appended.  The appended
 # section overrides one of the four strings with a string in another
@@ -595,24 +751,11 @@ $td-&gt;runtest(&quot;check file&quot;,
              {$td->FILE => "a.pdf"},
              {$td->FILE => "gen1.qdf"});
-# A user provided a file that was missing /ID in its trailer even
-# though it is encrypted and also has a space instead of a newline
-# after its xref keyword. This file has those same properties.
-$td->runtest("check broken file",
-             {$td->COMMAND => "qpdf --check invalid-id-xref.pdf"},
-             {$td->FILE => "invalid-id-xref.out", $td->EXIT_STATUS => 3},
-             $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Bound checks ---");
+$n_tests += 3;
-$td->runtest("show number of pages",
-             {$td->COMMAND =>
-                  "qpdf --show-npages 20-pages.pdf --password=user"},
-             {$td->STRING => "20\n", $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
-$td->runtest("ignore broken decode parms with no filters",
-             {$td->COMMAND => "qpdf --check broken-decode-parms-no-filter.pdf"},
-             {$td->FILE => "broken-decode-parms-no-filter.out",
-              $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
 $td->runtest("bounds check linearization data 1",
              {$td->COMMAND => "qpdf --check linearization-bounds-1.pdf"},
              {$td->FILE => "linearization-bounds-1.out",
@@ -631,13 +774,10 @@ $td-&gt;runtest(&quot;sanity check array size&quot;,
               $td->EXIT_STATUS => 2},
              $td->NORMALIZE_NEWLINES);
-$td->runtest("stream with indirect decode parms",
-             {$td->COMMAND =>
-                  "qpdf --static-id indirect-decode-parms.pdf a.pdf"},
-             {$td->STRING => "", $td->EXIT_STATUS => 0});
-$td->runtest("check file",
-             {$td->FILE => "a.pdf"},
-             {$td->FILE => "indirect-decode-parms-out.pdf"});
+show_ntests();
+# ----------
+$td->notify("--- Page errors ---");
+$n_tests += 3;
 $td->runtest("handle page no with contents",
              {$td->COMMAND => "qpdf --show-pages page-no-content.pdf"},
@@ -647,31 +787,23 @@ $td-&gt;runtest(&quot;no type key for page nodes&quot;,
              {$td->COMMAND => "qpdf --check no-pages-types.pdf"},
              {$td->FILE => "no-pages-types.out", $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
-$td->runtest("ensure arguments to R are direct",
-             {$td->COMMAND => "qpdf --check indirect-r-arg.pdf"},
-             {$td->FILE => "indirect-r-arg.out", $td->EXIT_STATUS => 3},
-             $td->NORMALIZE_NEWLINES);
 $td->runtest("detect loops in pages structure",
              {$td->COMMAND => "qpdf --check pages-loop.pdf"},
              {$td->FILE => "pages-loop.out", $td->EXIT_STATUS => 2},
              $td->NORMALIZE_NEWLINES);
-$td->runtest("no trailing space in xref table",
-             {$td->COMMAND => "qpdf --check no-space-in-xref.pdf"},
-             {$td->FILE => "no-space-in-xref.out", $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
-# An array is split across multiple content streams starting object
-# 42. This was reported in github issue 73. The file is modified from
-# that example.
-$td->runtest("parse split content stream",
-             {$td->COMMAND => "qpdf --check split-content-stream.pdf"},
-             {$td->FILE => "split-content-stream.out", $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
-$td->runtest("split content stream errors",
-             {$td->COMMAND => "qpdf --check split-content-stream-errors.pdf"},
-             {$td->FILE => "split-content-stream-errors.out",
-              $td->EXIT_STATUS => 3},
-             $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Xref ---");
+$n_tests += 5;
+
+# Handle file with invalid xref table and object 0 as a regular object
+# (bug 3159950).
+$td->runtest("check obj0.pdf",
+	     {$td->COMMAND => "qpdf --check obj0.pdf"},
+	     {$td->FILE => "obj0-check.out",
+	      $td->EXIT_STATUS => 3},
+	     $td->NORMALIZE_NEWLINES);
 # Demonstrate show-xref after check and not after check to illustrate
 # that it can dump the real xref or the recovered xref.
@@ -692,11 +824,6 @@ $td-&gt;runtest(&quot;dump corrected bad xref&quot;,
              $td->NORMALIZE_NEWLINES);
 unlink "args";
-$td->runtest("don't overwrite self",
-             {$td->COMMAND => "(echo a.pdf; echo a.pdf) | qpdf \@-"},
-             {$td->REGEXP => "input file and output file are the same.*",
-              $td->EXIT_STATUS => 2});
-
 $td->runtest("combine show and --pages",
              {$td->COMMAND =>
                   "qpdf --empty --pages minimal.pdf -- --show-pages"},
@@ -704,35 +831,21 @@ $td-&gt;runtest(&quot;combine show and --pages&quot;,
               $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
-$td->runtest("ignore bad token",
-             {$td->COMMAND =>
-                  "qpdf --show-xref bad-token-startxref.pdf"},
-             {$td->FILE => "bad-token-startxref.out",
-              $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
-
-$td->runtest("recoverable xref errors",
+$td->runtest("show number of pages",
              {$td->COMMAND =>
-                  "qpdf --check --show-xref xref-errors.pdf"},
-             {$td->FILE => "xref-errors.out",
-              $td->EXIT_STATUS => 3},
+                  "qpdf --show-npages 20-pages.pdf --password=user"},
+             {$td->STRING => "20\n", $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
-# A file was emailed privately with issue 96. short-O-U.pdf was
-# created by copying encryption parameters from that file. It exhibits
-# the same behavior as the original file.
-$td->runtest("short /O or /U",
-             {$td->COMMAND =>
-                  "qpdf --password=19723102477 --check short-O-U.pdf"},
-             {$td->FILE => "short-O-U.out",
-              $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
+show_ntests();
+# ----------
+$td->notify("--- Overwrite self ---");
+$n_tests += 1;
-$td->runtest("stream with tiff predictor",
-             {$td->COMMAND => "qpdf --check tiff-predictor.pdf"},
-             {$td->FILE => "tiff-predictor.out",
-              $td->EXIT_STATUS => 0},
-             $td->NORMALIZE_NEWLINES);
+$td->runtest("don't overwrite self",
+             {$td->COMMAND => "(echo a.pdf; echo a.pdf) | qpdf \@-"},
+             {$td->REGEXP => "input file and output file are the same.*",
+              $td->EXIT_STATUS => 2});
 show_ntests();
 # ----------
@@ -917,7 +1030,7 @@ show_ntests();
 # ----------
 $td->notify("--- Rotate Pages ---");
 $n_tests += 2;
-# XXX do absolute, positive, and negative on ranges that include
+# Do absolute, positive, and negative on ranges that include
 # inherited and non-inherited.
 # Pages 11-15 inherit /Rotate 90
 # Pages 1 and 2 have explicit /Rotate 270
@@ -1262,7 +1375,7 @@ $td-&gt;runtest(&quot;C API: no recovery&quot;,
 show_ntests();
 # ----------
 $td->notify("--- Recovery Tests ---");
-$n_tests += @badfiles + 6;
+$n_tests += @badfiles + 7;
 # Recovery tests.  These are mostly after-the-fact -- when recovery
 # was implemented, some degree of recovery was possible on many of the
@@ -1324,6 +1437,13 @@ $td-&gt;runtest(&quot;check with C API&quot;,
 	      $td->EXIT_STATUS => 0},
 	     $td->NORMALIZE_NEWLINES);
+$td->runtest("recoverable xref errors",
+             {$td->COMMAND =>
+                  "qpdf --check --show-xref xref-errors.pdf"},
+             {$td->FILE => "xref-errors.out",
+              $td->EXIT_STATUS => 3},
+             $td->NORMALIZE_NEWLINES);
+
 show_ntests();
 # ----------
 $td->notify("--- Basic Parsing Tests ---");
@@ -2474,8 +2594,8 @@ show_ntests();
 # ----------
-$td->notify("--- PNG filtering Tests ---");
-$n_tests += 2;
+$td->notify("--- Specialized filtering Tests ---");
+$n_tests += 3;
 $n_compare_pdfs += 1;
 # The PDF file was submitted on bug #83 on github. All the PNG filters
@@ -2493,6 +2613,12 @@ $td-&gt;runtest(&quot;check output&quot;,
 	     {$td->FILE => "png-filters-decoded.pdf"});
 compare_pdfs("png-filters.pdf", "a.pdf");
+$td->runtest("stream with tiff predictor",
+             {$td->COMMAND => "qpdf --check tiff-predictor.pdf"},
+             {$td->FILE => "tiff-predictor.out",
+              $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+
 show_ntests();
 # ----------
 $td->notify("--- fix-qdf Tests ---");