diff options
| author | Jay Berkenbilt <ejb@ql.org> | 2017-08-05 15:19:19 +0200 |
|---|---|---|
| committer | Jay Berkenbilt <ejb@ql.org> | 2017-08-05 16:22:33 +0200 |
| commit | a60eb552d37896bceabc1e5def40337df8ba21e7 (patch) | |
| tree | 6067743a50f29595ae837e6e9de51ad2c54c7739 | |
| parent | ad0e29a3a40048503da06860e416b9f9ae294b72 (diff) | |
| download | qpdf-a60eb552d37896bceabc1e5def40337df8ba21e7.tar.zst | |
Split bug tests into separate chunk
| -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) { |