1 files changed, 12 insertions, 1 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index 5f003623..7e7c89bb 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -385,7 +385,7 @@ $td->runtest("compare files",
 show_ntests();
 # ----------
 $td->notify("--- Appearance Streams ---");
-$n_tests += 8;
+$n_tests += 10;
 
 foreach my $f ('need-appearances',
                'need-appearances-more',
@@ -444,6 +444,17 @@ foreach my $i (@choice_values)
                  {$td->FILE => "appearances-$i.pdf"});
 }
 
+$td->runtest("Update resources from /DR",
+             {$td->COMMAND =>
+                      "qpdf --qdf --no-original-object-ids --static-id" .
+                      " --generate-appearances" .
+                      " resource-from-dr.pdf a.pdf"},
+             {$td->STRING => "", $td->EXIT_STATUS => 0},
+             $td->NORMALIZE_NEWLINES);
+$td->runtest("compare files",
+             {$td->FILE => "a.pdf"},
+             {$td->FILE => "resource-from-dr-out.pdf"});
+
 show_ntests();
 # ----------
 $td->notify("--- Form XObject, underlay, overlay ---");