Add additional page API test cases

1 files changed, 12 insertions, 1 deletions

diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index bc0d5643..053fb3b2 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -111,7 +111,7 @@ $td->runtest("new stream",
 show_ntests();
 # ----------
 $td->notify("--- Page API Tests ---");
-$n_tests += 5;
+$n_tests += 8;
 
 $td->runtest("basic page API",
 	     {$td->COMMAND => "test_driver 15 page_api_1.pdf"},
@@ -131,6 +131,17 @@ $td->runtest("duplicate page",
 	     {$td->COMMAND => "test_driver 17 page_api_2.pdf"},
 	     {$td->FILE => "page_api_2.out", $td->EXIT_STATUS => 2},
 	     $td->NORMALIZE_NEWLINES);
+$td->runtest("delete and re-add a page",
+	     {$td->COMMAND => "test_driver 18 page_api_1.pdf"},
+	     {$td->STRING => "test 18 done\n", $td->EXIT_STATUS => 0},
+	     $td->NORMALIZE_NEWLINES);
+$td->runtest("check output",
+	     {$td->FILE => "a.pdf"},
+	     {$td->FILE => "page_api_1-out3.pdf"});
+$td->runtest("duplicate page",
+	     {$td->COMMAND => "test_driver 19 page_api_1.pdf"},
+	     {$td->FILE => "page_api_1.out", $td->EXIT_STATUS => 2},
+	     $td->NORMALIZE_NEWLINES);
 # ----------
 $td->notify("--- Miscellaneous Tests ---");
 $n_tests += 37;