diff options
Diffstat (limited to 'qpdf/qtest/arg-parsing.test')
-rw-r--r-- | qpdf/qtest/arg-parsing.test | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/qpdf/qtest/arg-parsing.test b/qpdf/qtest/arg-parsing.test index b8bd1051..99c48b27 100644 --- a/qpdf/qtest/arg-parsing.test +++ b/qpdf/qtest/arg-parsing.test @@ -15,7 +15,7 @@ cleanup(); my $td = new TestDriver('arg-parsing'); -my $n_tests = 13; +my $n_tests = 16; $td->runtest("required argument", {$td->COMMAND => "qpdf --password minimal.pdf"}, @@ -77,6 +77,23 @@ $td->runtest("duplicated pages password", {$td->REGEXP => ".*password already specified.*", $td->EXIT_STATUS => 2}, $td->NORMALIZE_NEWLINES); +$td->runtest("v1-only objects json-key", + {$td->COMMAND => "qpdf --json=2 --json-key=objects minimal.pdf"}, + {$td->REGEXP => ".*\"objects\" and \"objectinfo\" are " . + "only valid for json version 1.*", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); +$td->runtest("v1-only objectinfo json-key", + {$td->COMMAND => "qpdf --json=2 --json-key=objectinfo minimal.pdf"}, + {$td->REGEXP => ".*\"objects\" and \"objectinfo\" are " . + "only valid for json version 1.*", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); +$td->runtest("v2-only qpdf json-key", + {$td->COMMAND => "qpdf --json=1 --json-key=qpdf minimal.pdf"}, + {$td->REGEXP => ".*\"qpdf\" is only valid for json version > 1.*", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); # Ignoring -- at the top level was never intended but turned out to # have been there for a long time so that people relied on it. It is # intentionally not documented. |