diff options
Diffstat (limited to 'examples/qtest/mod-info.test')
-rw-r--r-- | examples/qtest/mod-info.test | 90 |
1 files changed, 45 insertions, 45 deletions
diff --git a/examples/qtest/mod-info.test b/examples/qtest/mod-info.test index 5f927170..ec09df9e 100644 --- a/examples/qtest/mod-info.test +++ b/examples/qtest/mod-info.test @@ -16,65 +16,65 @@ my $qpdf = $ENV{'QPDF_BIN'} or die; cleanup(); $td->runtest("usage #1", - {$td->COMMAND => "$prg --in target.pdf"}, - {$td->FILE => "usage.out", - $td->EXIT_STATUS => 2}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --in target.pdf"}, + {$td->FILE => "usage.out", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); $td->runtest("usage #2", - {$td->COMMAND => "$prg --key abc --val def"}, - {$td->FILE => "usage.out", - $td->EXIT_STATUS => 2}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --key abc --val def"}, + {$td->FILE => "usage.out", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); $td->runtest("usage #3", - {$td->COMMAND => "$prg --key abc --val def abc"}, - {$td->FILE => "usage.out", - $td->EXIT_STATUS => 2}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --key abc --val def abc"}, + {$td->FILE => "usage.out", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); $td->runtest("usage #4", - {$td->COMMAND => "$prg --in source1.pdf --key date --val 01/01/01 --val 12/12/12"}, - {$td->FILE => "usage.out", - $td->EXIT_STATUS => 2}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --in source1.pdf --key date --val 01/01/01 --val 12/12/12"}, + {$td->FILE => "usage.out", + $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); $td->runtest("dump #1", - {$td->COMMAND => "$prg --dump files/source1.pdf"}, - {$td->FILE => "dump.out", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --dump files/source1.pdf"}, + {$td->FILE => "dump.out", + $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); $td->runtest("dump #2", - {$td->COMMAND => "$prg --dump files/no-info.pdf"}, - {$td->STRING => "", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); + {$td->COMMAND => "$prg --dump files/no-info.pdf"}, + {$td->STRING => "", + $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); $td->runtest("dump #3", - {$td->COMMAND => "$prg --dump files/empty-info.pdf"}, - {$td->STRING => "", - $td->EXIT_STATUS => 0}); + {$td->COMMAND => "$prg --dump files/empty-info.pdf"}, + {$td->STRING => "", + $td->EXIT_STATUS => 0}); run_and_cmp("modify Subject", - "$prg --in files/source1.pdf --out out.pdf --key Subject " . - "--val \"Export Business\"", - "", "out.pdf", "files/1.qdf"); + "$prg --in files/source1.pdf --out out.pdf --key Subject " . + "--val \"Export Business\"", + "", "out.pdf", "files/1.qdf"); run_and_cmp("add Subject, remove Producer, modify CreationDate", - "$prg --in files/source2.pdf --out out.pdf --key Subject " . - "--val \"Tammlin\" --key Producer --key CreationDate --val 12/12", - "", "out.pdf", "files/2.qdf"); + "$prg --in files/source2.pdf --out out.pdf --key Subject " . + "--val \"Tammlin\" --key Producer --key CreationDate --val 12/12", + "", "out.pdf", "files/2.qdf"); run_and_cmp("add Subject (empty-info file)", - "$prg --in files/empty-info.pdf --out out.pdf --key Subject " . - "--val Tammlin", - "", "out.pdf", "files/3.qdf"); + "$prg --in files/empty-info.pdf --out out.pdf --key Subject " . + "--val Tammlin", + "", "out.pdf", "files/3.qdf"); copy("files/no-info.pdf", "no-info.pdf") or die "can't copy no-info: $!"; run_and_cmp("in-place Producer added (no-info file)", - "$prg --in no-info.pdf --key Producer --val \"Obivan Kinobi\"", - "", "no-info.pdf", "files/4.qdf"); + "$prg --in no-info.pdf --key Producer --val \"Obivan Kinobi\"", + "", "no-info.pdf", "files/4.qdf"); cleanup(); @@ -89,12 +89,12 @@ sub run_and_cmp { my ($dsc, $cmd, $out, $fout, $fexp) = @_; $td->runtest($dsc, - {$td->COMMAND => "$cmd --static-id"}, - {$td->STRING => $out, - $td->EXIT_STATUS => 0}); + {$td->COMMAND => "$cmd --static-id"}, + {$td->STRING => $out, + $td->EXIT_STATUS => 0}); $td->runtest("$dsc output", - {$td->COMMAND => "$qpdf --static-id" . - " --no-original-object-ids -qdf $fout -"}, - {$td->FILE => $fexp, - $td->EXIT_STATUS => 0}); + {$td->COMMAND => "$qpdf --static-id" . + " --no-original-object-ids -qdf $fout -"}, + {$td->FILE => $fexp, + $td->EXIT_STATUS => 0}); } |