diff options
Diffstat (limited to 'qpdf/qtest/pages-tree.test')
-rw-r--r-- | qpdf/qtest/pages-tree.test | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/qpdf/qtest/pages-tree.test b/qpdf/qtest/pages-tree.test index 4ad260ef..e40d6de1 100644 --- a/qpdf/qtest/pages-tree.test +++ b/qpdf/qtest/pages-tree.test @@ -14,13 +14,14 @@ cleanup(); my $td = new TestDriver('pages-tree'); -my $n_tests = 11; +my $n_tests = 13; $td->runtest("linearize duplicated pages", {$td->COMMAND => "qpdf --static-id --linearize" . " page_api_2.pdf a.pdf"}, - {$td->STRING => "", $td->EXIT_STATUS => 0}, + {$td->FILE => "duplicate-page-warning.out", + $td->EXIT_STATUS => 3}, $td->NORMALIZE_NEWLINES); $td->runtest("compare files", {$td->FILE => "a.pdf"}, @@ -29,7 +30,8 @@ $td->runtest("extract duplicated pages", {$td->COMMAND => "qpdf --static-id page_api_2.pdf" . " --pages . -- a.pdf"}, - {$td->STRING => "", $td->EXIT_STATUS => 0}, + {$td->FILE => "duplicate-page-warning.out", + $td->EXIT_STATUS => 3}, $td->NORMALIZE_NEWLINES); $td->runtest("compare files", {$td->FILE => "a.pdf"}, @@ -37,7 +39,7 @@ $td->runtest("compare files", $td->runtest("direct pages", {$td->COMMAND => "qpdf --static-id direct-pages.pdf --pages . -- a.pdf"}, - {$td->STRING => "", $td->EXIT_STATUS => 0}, + {$td->FILE => "direct-page-warning.out", $td->EXIT_STATUS => 3}, $td->NORMALIZE_NEWLINES); $td->runtest("check output", {$td->FILE => "a.pdf"}, @@ -45,7 +47,7 @@ $td->runtest("check output", $td->runtest("show direct pages", {$td->COMMAND => "qpdf --show-pages direct-pages.pdf"}, - {$td->FILE => "direct-pages.out", $td->EXIT_STATUS => 0}, + {$td->FILE => "direct-pages.out", $td->EXIT_STATUS => 3}, $td->NORMALIZE_NEWLINES); # Json mode for direct and duplicated pages illustrates that the @@ -62,8 +64,12 @@ foreach my $f (qw(page_api_2 direct-pages)) $td->runtest("json for $f (with pages)", {$td->COMMAND => "qpdf --json=latest $f.pdf" . - " --json-key=objects --json-key=pages"}, - {$td->FILE => "$f-json-pages.out", $td->EXIT_STATUS => 0}, + " --json-key=objects --json-key=pages 2>warn.tmpout"}, + {$td->FILE => "$f-json-pages.out", $td->EXIT_STATUS => 3}, + $td->NORMALIZE_NEWLINES); + $td->runtest("check page warnings", + {$td->FILE => "warn.tmpout"}, + {$td->FILE => "$f-json-warning.out"}, $td->NORMALIZE_NEWLINES); } |