aboutsummaryrefslogtreecommitdiffstats
path: root/qpdf/qtest/qpdf.test
diff options
context:
space:
mode:
Diffstat (limited to 'qpdf/qtest/qpdf.test')
-rw-r--r--qpdf/qtest/qpdf.test30
1 files changed, 30 insertions, 0 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test
index d4b3f2a5..c975f2c1 100644
--- a/qpdf/qtest/qpdf.test
+++ b/qpdf/qtest/qpdf.test
@@ -4870,6 +4870,36 @@ $td->runtest("C get object by ID",
show_ntests();
# ----------
+$td->notify("--- C API Page Functions ---");
+$n_tests += 5;
+
+$td->runtest("C page normal",
+ {$td->COMMAND =>
+ "qpdf-ctest 34 11-pages.pdf '' a.pdf minimal.pdf"},
+ {$td->STRING => "", $td->EXIT_STATUS => 0},
+ $td->NORMALIZE_NEWLINES);
+$td->runtest("check output",
+ {$td->FILE => 'a.pdf'},
+ {$td->FILE => 'c-pages.pdf'});
+
+$td->runtest("C page errors",
+ {$td->COMMAND =>
+ "qpdf-ctest 35 11-pages.pdf '' ''"},
+ {$td->FILE => "c-page-errors.out", $td->EXIT_STATUS => 0},
+ $td->NORMALIZE_NEWLINES);
+$td->runtest("C inherited page resources",
+ {$td->COMMAND =>
+ "qpdf-ctest 36 inherited-rotate.pdf '' ''"},
+ {$td->STRING => "", $td->EXIT_STATUS => 0},
+ $td->NORMALIZE_NEWLINES);
+$td->runtest("C pages cache",
+ {$td->COMMAND =>
+ "qpdf-ctest 37 11-pages.pdf '' ''"},
+ {$td->STRING => "", $td->EXIT_STATUS => 0},
+ $td->NORMALIZE_NEWLINES);
+
+show_ntests();
+# ----------
$td->notify("--- Content Preservation Tests ---");
# $n_tests incremented below