aboutsummaryrefslogtreecommitdiffstats
path: root/qpdf/qtest/invalid-objects.test
diff options
context:
space:
mode:
authorJay Berkenbilt <ejb@ql.org>2022-05-19 23:27:41 +0200
committerJay Berkenbilt <ejb@ql.org>2022-05-20 15:16:25 +0200
commit6c5e590673331aa685afe8aa997b0b7e64996004 (patch)
tree66f14ee6b4a5bb6bc1f6bfa006d40ec9c8760b74 /qpdf/qtest/invalid-objects.test
parent6f43bf8de36b08c55b172b4f4133c79657651666 (diff)
downloadqpdf-6c5e590673331aa685afe8aa997b0b7e64996004.tar.zst
Rename all test files: _ to -
Diffstat (limited to 'qpdf/qtest/invalid-objects.test')
-rw-r--r--qpdf/qtest/invalid-objects.test37
1 files changed, 37 insertions, 0 deletions
diff --git a/qpdf/qtest/invalid-objects.test b/qpdf/qtest/invalid-objects.test
new file mode 100644
index 00000000..6491ccdb
--- /dev/null
+++ b/qpdf/qtest/invalid-objects.test
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+require 5.008;
+use warnings;
+use strict;
+
+unshift(@INC, '.');
+require qpdf_test_helpers;
+
+chdir("qpdf") or die "chdir testdir failed: $!\n";
+
+require TestDriver;
+
+cleanup();
+
+my $td = new TestDriver('invalid-objects');
+
+my $n_tests = 3;
+
+$td->runtest("closed input source",
+ {$td->COMMAND => "test_driver 73 minimal.pdf"},
+ {$td->FILE => "test73.out",
+ $td->EXIT_STATUS => 2},
+ $td->NORMALIZE_NEWLINES);
+
+$td->runtest("empty object",
+ {$td->COMMAND => "qpdf -show-object=7,0 empty-object.pdf"},
+ {$td->FILE => "empty-object.out",
+ $td->EXIT_STATUS => 3},
+ $td->NORMALIZE_NEWLINES);
+
+$td->runtest("object with zero offset",
+ {$td->COMMAND => "qpdf --check zero-offset.pdf"},
+ {$td->FILE => "zero-offset.out", $td->EXIT_STATUS => 3},
+ $td->NORMALIZE_NEWLINES);
+
+cleanup();
+$td->report($n_tests);