diff options
Diffstat (limited to 'qpdf/qtest/qpdf.test')
| -rw-r--r-- | qpdf/qtest/qpdf.test | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test index a1077238..3a1f30dd 100644 --- a/qpdf/qtest/qpdf.test +++ b/qpdf/qtest/qpdf.test @@ -102,6 +102,27 @@ $td->runtest("UTF-16 encoding errors", show_ntests(); # ---------- +$td->notify("--- Argument Parsing ---"); +$n_tests += 3; + +$td->runtest("required argument", + {$td->COMMAND => "qpdf --password minimal.pdf"}, + {$td->REGEXP => "must be given as --password=pass", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); +$td->runtest("required argument with choices", + {$td->COMMAND => "qpdf --decode-level minimal.pdf"}, + {$td->REGEXP => "must be given as --decode-level=\\{.*all.*\\}", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); +$td->runtest("required argument with choices", + {$td->COMMAND => "qpdf --decode-level minimal.pdf"}, + {$td->REGEXP => "must be given as --decode-level=\\{.*all.*\\}", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); + +show_ntests(); +# ---------- $td->notify("--- Form Tests ---"); my @form_tests = ( |