diff options
author | Jay Berkenbilt <ejb@ql.org> | 2022-05-20 01:22:32 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2022-05-20 15:16:25 +0200 |
commit | a83b7b0611dfa0063e0c95a4b6722501feb99a17 (patch) | |
tree | fc106c6eb792b1d5da6b0eb8b18fc6e70d9ebeb6 /qpdf/qtest/qpdf-json.test | |
parent | 7f8c4b183da4d2d177ee08c3be848110361f43f0 (diff) | |
download | qpdf-a83b7b0611dfa0063e0c95a4b6722501feb99a17.tar.zst |
Tests with manually constructed qpdf json
Diffstat (limited to 'qpdf/qtest/qpdf-json.test')
-rw-r--r-- | qpdf/qtest/qpdf-json.test | 37 |
1 files changed, 32 insertions, 5 deletions
diff --git a/qpdf/qtest/qpdf-json.test b/qpdf/qtest/qpdf-json.test index e6a6a18f..80c73d60 100644 --- a/qpdf/qtest/qpdf-json.test +++ b/qpdf/qtest/qpdf-json.test @@ -67,30 +67,30 @@ foreach my $i (@goodfiles) if (ref($i) eq 'ARRAY') { ($f, $xargs) = @$i; } - $td->runtest("good: $f -> json", + $td->runtest("good: $f -> JSON", {$td->COMMAND => "qpdf $xargs --decode-level=none" . " --json-output=latest $f a.json"}, {$td->STRING => "", $td->EXIT_STATUS => 0}, $td->NORMALIZE_NEWLINES); - $td->runtest("good: $f json -> json", + $td->runtest("good: $f JSON -> JSON", {$td->COMMAND => "qpdf --decode-level=none" . " --json-input --json-output=latest a.json b.json"}, {$td->STRING => "", $td->EXIT_STATUS => 0}, $td->NORMALIZE_NEWLINES); - $td->runtest("good: $f json -> qdf", + $td->runtest("good: $f JSON -> QDF", {$td->COMMAND => "qpdf --qdf --json-input --stream-data=preserve" . " --static-id a.json a.pdf"}, {$td->STRING => "", $td->EXIT_STATUS => 0}, $td->NORMALIZE_NEWLINES); - $td->runtest("good: $f compare json", + $td->runtest("good: $f compare JSON", {$td->FILE => "a.json"}, {$td->FILE => "b.json"}); my $exp = "json-changed-$f"; if (! -f $exp) { - $td->runtest("good: $f -> qdf", + $td->runtest("good: $f -> aqdf", {$td->COMMAND => "qpdf $xargs --object-streams=disable --qdf" . " --stream-data=preserve --static-id $f b.pdf"}, @@ -115,7 +115,34 @@ foreach my $i (@goodfiles) {$td->FILE => $exp}); # from original PDF } +$n_tests += 6; +$td->runtest("manual JSON to PDF", + {$td->COMMAND => "qpdf --json-input --static-id --qdf" . + " manual-qpdf-json.json a.pdf"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check manual JSON to PDF", + {$td->FILE => "a.pdf"}, + {$td->FILE => "manual-qpdf-json.pdf"}); +$td->runtest("check manual JSON to PDF to JSON", + {$td->COMMAND => "qpdf --json-output=2 a.pdf -"}, + {$td->FILE => "manual-qpdf-json-pdf.json", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("manual JSON to JSON", + {$td->COMMAND => "qpdf --json-input --json-output=2" . + " manual-qpdf-json.json a.json"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check manual JSON to JSON", + {$td->FILE => "a.json"}, + {$td->FILE => "manual-qpdf-json-out.json"}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check manual JSON to JSON to JSON", + {$td->COMMAND => "qpdf --json-output=2 --json-input a.json -"}, + {$td->FILE => "a.json", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +# QXXXQ file cleanup(); $td->report($n_tests); |