From f1ae55a430b194aafc0afa37d5752b7d04c0f461 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Sat, 31 Oct 2020 09:02:30 -0400
Subject: Better indirect filter test case

The test suite now contains test cases that fail with both 10.0.1 and
10.0.2 and reproduce the internal error from #449.
---
 qpdf/qtest/qpdf.test                |  15 +++++++++++++--
 qpdf/qtest/qpdf/indirect-filter.pdf | Bin 5188 -> 5404 bytes
 qpdf/qtest/qpdf/issue-449.pdf       | Bin 0 -> 1202 bytes
 3 files changed, 13 insertions(+), 2 deletions(-)
 create mode 100644 qpdf/qtest/qpdf/issue-449.pdf

diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index 60e5ba07..8254013b 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -2432,7 +2432,7 @@ $td->runtest("check output",
 show_ntests();
 # ----------
 $td->notify("--- Copy Foreign Objects ---");
-$n_tests += 10;
+$n_tests += 11;
 
 foreach my $d ([25, 1], [26, 2], [27, 3])
 {
@@ -2454,6 +2454,14 @@ $td->runtest("copy objects error",
               $td->EXIT_STATUS => 0},
              $td->NORMALIZE_NEWLINES);
 
+# Issue 449 involved indirect /Filter or /DecodeParms in streams that
+# had their stream data replaced. The hand-generated
+# indirect-filter.pdf file more or less reproduces the situation but
+# doesn't result in the same internal error that 449 did with 10.0.1.
+# The file issue-449.pdf was minimized by hand from a test case and
+# does produce an internal error, though the exact reason is unclear.
+# It seems to just have to do with the order in which things are
+# copied.
 $td->runtest("indirect filters",
              {$td->COMMAND => "test_driver 69 indirect-filter.pdf"},
              {$td->STRING => "test 69 done\n", $td->EXIT_STATUS => 0},
@@ -2464,7 +2472,10 @@ foreach my $i (0, 1)
                  {$td->FILE => "auto-$i.pdf"},
                  {$td->FILE => "indirect-filter-out-$i.pdf"});
 }
-
+$td->runtest("issue 449",
+             {$td->COMMAND => "test_driver 69 issue-449.pdf"},
+             {$td->STRING => "test 69 done\n", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
 
 show_ntests();
 # ----------
diff --git a/qpdf/qtest/qpdf/indirect-filter.pdf b/qpdf/qtest/qpdf/indirect-filter.pdf
index 9717bb89..0f3e9c86 100644
Binary files a/qpdf/qtest/qpdf/indirect-filter.pdf and b/qpdf/qtest/qpdf/indirect-filter.pdf differ
diff --git a/qpdf/qtest/qpdf/issue-449.pdf b/qpdf/qtest/qpdf/issue-449.pdf
new file mode 100644
index 00000000..e588e0a7
Binary files /dev/null and b/qpdf/qtest/qpdf/issue-449.pdf differ
-- 
cgit v1.2.3-54-g00ecf