octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2024-12-22 19:08:59 +00:00
Code Issues Releases Wiki Activity

Add workaround for bug in ghostscript 9.56 (fixes #732)

Browse Source
This commit is contained in:
Jay Berkenbilt 2022-09-02 10:23:38 -04:00
parent 31396f61c9
commit a5ae042e2b
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
qpdf/qtest/qpdf_test_helpers.pm
View File

@ -9,6 +9,23 @@ if ((exists $ENV{'QPDF_TEST_COMPARE_IMAGES'}) &&
$compare_images = 1; $compare_images = 1;
} }
chomp(my $gs_version = `gs --version`);
my $x_gs_args = "";
if ($gs_version =~ m/^(\d+).(\d+)/)
{
my $major = $1;
my $minor = $2;
if (($major == 9) && ($minor >= 56))
{
# There are some PDF files in the test suite that ghostscript
# 9.56, the first version to have the "new" PDF interpreter,
# can't handle. The bug is fixed for 10.0.0. Fall back to the
# old interpreter in the meantime. See
# https://bugs.ghostscript.com/show_bug.cgi?id=705842
$x_gs_args = "-dNEWPDF=false";
}
}
sub calc_ntests sub calc_ntests
{ {
my ($n_tests, $n_compare_pdfs) = @_; my ($n_tests, $n_compare_pdfs) = @_;
@ -78,7 +95,8 @@ sub compare_pdfs
$td->runtest("convert original file to image", $td->runtest("convert original file to image",
{$td->COMMAND => {$td->COMMAND =>
"(cd tif1;" . "(cd tif1;" .
" gs 2>$devNull -q -dNOPAUSE -sDEVICE=tiff24nc" . " gs 2>$devNull $x_gs_args" .
" -q -dNOPAUSE -sDEVICE=tiff24nc" .
" -sOutputFile=a.tif - < ../$f1)"}, " -sOutputFile=a.tif - < ../$f1)"},
{$td->STRING => "", {$td->STRING => "",
$td->EXIT_STATUS => 0}); $td->EXIT_STATUS => 0});
@ -97,7 +115,8 @@ sub compare_pdfs
$td->runtest("convert new file to image", $td->runtest("convert new file to image",
{$td->COMMAND => {$td->COMMAND =>
"(cd tif2;" . "(cd tif2;" .
" gs 2>$devNull -q -dNOPAUSE -sDEVICE=tiff24nc" . " gs 2>$devNull $x_gs_args" .
" -q -dNOPAUSE -sDEVICE=tiff24nc" .
" -sOutputFile=a.tif - < ../$f2)"}, " -sOutputFile=a.tif - < ../$f2)"},
{$td->STRING => "", {$td->STRING => "",
$td->EXIT_STATUS => 0}); $td->EXIT_STATUS => 0});