Add better tests for generation > 0 with object streams

This includes an expected failure for a file with a dangling
reference to an old generation.

1 files changed, 15 insertions, 1 deletions

diff --git a/qpdf/qtest/object-stream.test b/qpdf/qtest/object-stream.test
index 22b35af4..c9fa0664 100644
--- a/qpdf/qtest/object-stream.test
+++ b/qpdf/qtest/object-stream.test
@@ -16,7 +16,7 @@ cleanup();
 
 my $td = new TestDriver('object-stream');
 
-my $n_tests = 5 + (36 * 4) + (12 * 2);
+my $n_tests = 7 + (36 * 4) + (12 * 2);
 my $n_compare_pdfs = 36;
 
 for (my $n = 16; $n <= 19; ++$n)
@@ -82,8 +82,22 @@ $td->runtest("generate object streams for gen > 0",
              {$td->COMMAND => "qpdf --qdf --static-id" .
                   " --object-streams=generate gen1.pdf a.pdf"},
              {$td->STRING => "", $td->EXIT_STATUS => 0});
+# qpdf 11.8.0 -- it was discovered that qpdf was incorrectly handling
+# references to older generations of reused objects in incrementally
+# updated files.
 $td->runtest("check file",
              {$td->FILE => "a.pdf"},
+             {$td->FILE => "gen1.qdf"},
+             $td->EXPECT_FAILURE);
+
+$td->runtest("generate object streams for gen > 0",
+             {$td->COMMAND => "qpdf --qdf --static-id" .
+                  " --object-streams=generate gen1-no-dangling.pdf a.pdf"},
+             {$td->STRING => "", $td->EXIT_STATUS => 0});
+$td->runtest("check file",
+             {$td->FILE => "a.pdf"},
+             # Intentionally compare against gen1.pdf -- should have
+             # the same results as above.
              {$td->FILE => "gen1.qdf"});