mirror of
https://github.com/qpdf/qpdf.git
synced 2024-11-01 03:12:29 +00:00
a734af681b
With cmake, we are customizing the path for each test suite so we can ensure we get the right qpdf without having to use an environment variable.
32 lines
644 B
Perl
32 lines
644 B
Perl
#!/usr/bin/env perl
|
|
require 5.008;
|
|
BEGIN { $^W = 1; }
|
|
use strict;
|
|
|
|
chdir("linearize") or die "chdir testdir failed: $!\n";
|
|
|
|
require TestDriver;
|
|
|
|
cleanup();
|
|
|
|
my $td = new TestDriver('linearize');
|
|
|
|
$td->runtest("linearize",
|
|
{$td->COMMAND => "pdf-linearize input.pdf '' a.pdf"},
|
|
{$td->REGEXP => '(?s).*input\.pdf progress: \d+\%.*',
|
|
$td->EXIT_STATUS => 0});
|
|
|
|
$td->runtest("check",
|
|
{$td->COMMAND => "qpdf --check a.pdf"},
|
|
{$td->FILE => "check.out", $td->EXIT_STATUS => 0},
|
|
$td->NORMALIZE_NEWLINES);
|
|
|
|
cleanup();
|
|
|
|
$td->report(2);
|
|
|
|
sub cleanup
|
|
{
|
|
unlink "a.pdf";
|
|
}
|