diff options
Diffstat (limited to 'qpdf/qtest/qpdf.test')
-rw-r--r-- | qpdf/qtest/qpdf.test | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test index 2fff85b6..0b75559c 100644 --- a/qpdf/qtest/qpdf.test +++ b/qpdf/qtest/qpdf.test @@ -205,21 +205,9 @@ $td->runtest("remove page we don't have", $td->NORMALIZE_NEWLINES); show_ntests(); # ---------- -$td->notify("--- Miscellaneous Tests ---"); -$n_tests += 95; - -$td->runtest("qpdf version", - {$td->COMMAND => "qpdf --version"}, - {$td->REGEXP => "qpdf version \\S+\n.*", $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); -$td->runtest("C API: qpdf version", - {$td->COMMAND => "qpdf-ctest --version"}, - {$td->REGEXP => "qpdf-ctest version \\S+\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -# Files to reproduce various bugs -foreach my $d ( +$td->notify("--- Files for specific bugs ---"); +# The number is the github issue number in which the bug was reported. +my @bug_tests = ( ["51", "resolve loop", 3], ["99", "object 0", 2], ["99b", "object 0", 2], @@ -230,7 +218,9 @@ foreach my $d ( ["119", "other infinite loop", 3], ["120", "other infinite loop", 3], ["106", "zlib data error", 3], - ) + ); +$n_tests += scalar(@bug_tests); +foreach my $d (@bug_tests) { my ($n, $description, $exit_status) = @$d; $td->runtest($description, @@ -239,7 +229,20 @@ foreach my $d ( $td->EXIT_STATUS => $exit_status}, $td->NORMALIZE_NEWLINES); } +show_ntests(); +# ---------- +$td->notify("--- Miscellaneous Tests ---"); +$n_tests += 85; +$td->runtest("qpdf version", + {$td->COMMAND => "qpdf --version"}, + {$td->REGEXP => "qpdf version \\S+\n.*", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("C API: qpdf version", + {$td->COMMAND => "qpdf-ctest --version"}, + {$td->REGEXP => "qpdf-ctest version \\S+\n", + $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); foreach (my $i = 1; $i <= 3; ++$i) { |