aboutsummaryrefslogtreecommitdiffstats
path: root/examples/qtest/mod-info.test
diff options
context:
space:
mode:
authorJay Berkenbilt <ejb@ql.org>2022-02-08 15:18:08 +0100
committerJay Berkenbilt <ejb@ql.org>2022-02-08 17:51:15 +0100
commitcb769c62e55599e9f980001830bc61d9fcaa64a9 (patch)
tree0bf980c385a61cbc8720cf990762ffc1200f9d6a /examples/qtest/mod-info.test
parent716381f65a2b2dc72f8da2426ba71aeab02c507f (diff)
downloadqpdf-cb769c62e55599e9f980001830bc61d9fcaa64a9.tar.zst
WHITESPACE ONLY -- expand tabs in source code
This comment expands all tabs using an 8-character tab-width. You should ignore this commit when using git blame or use git blame -w. In the early days, I used to use tabs where possible for indentation, since emacs did this automatically. In recent years, I have switched to only using spaces, which means qpdf source code has been a mixture of spaces and tabs. I have avoided cleaning this up because of not wanting gratuitous whitespaces change to cloud the output of git blame, but I changed my mind after discussing with users who view qpdf source code in editors/IDEs that have other tab widths by default and in light of the fact that I am planning to start applying automatic code formatting soon.
Diffstat (limited to 'examples/qtest/mod-info.test')
-rw-r--r--examples/qtest/mod-info.test90
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});
}