diff options
Diffstat (limited to 'qpdf/qtest/qpdf.test')
| -rw-r--r-- | qpdf/qtest/qpdf.test | 34 |
1 files changed, 30 insertions, 4 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test index 21e15e1d..17497710 100644 --- a/qpdf/qtest/qpdf.test +++ b/qpdf/qtest/qpdf.test @@ -2847,10 +2847,36 @@ foreach my $file (@files) {$td->STRING => "", $td->EXIT_STATUS => 0}); + # This test is fragile on Windows for unknown reasons. + # Sometimes the output of qpdf --check is truncated yet + # qpdf --check still exits normally. As a workaround, try + # writing the output of qpdf --check to a file and test + # for truncation. If we get a non-truncated output, use + # that output as the test input. If this loop fails to + # produce a non-truncated output, the truncated or + # otherwise incorrect output will still be used as the + # test input, so the test will fail as it should. We lose + # a check of qpdf --check's output, but it's not important + # for this test to verify that. + unlink "check.tmpout"; + for (my $i = 0; $i < 5; ++$i) + { + if ((system("qpdf --check a.pdf > check.tmpout") == 0) && + open(F, "<check.tmpout")) + { + local $/ = undef; + my $text = <F>; + close(F); + if ($text =~ m/No syntax or stream/) + { + last; + } + } + sleep 1; + } $td->runtest("check status", - {$td->COMMAND => "qpdf --check a.pdf"}, - {$td->FILE => "$base.$n$osuf.check", - $td->EXIT_STATUS => 0}, + {$td->FILE => "check.tmpout"}, + {$td->FILE => "$base.$n$osuf.check"}, $td->NORMALIZE_NEWLINES); $td->runtest("check with C API", @@ -3186,5 +3212,5 @@ sub get_md5_checksum sub cleanup { system("rm -rf *.ps *.pnm ?.pdf ?.qdf *.enc* tif1 tif2 tiff-cache"); - system("rm -rf *split-out* ???-kfo.pdf"); + system("rm -rf *split-out* ???-kfo.pdf *.tmpout"); } |