mirror of
https://github.com/qpdf/qpdf.git
synced 2024-12-23 11:28:56 +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
576 B
Perl
32 lines
576 B
Perl
#!/usr/bin/env perl
|
|
require 5.008;
|
|
BEGIN { $^W = 1; }
|
|
use strict;
|
|
|
|
chdir("c-objects") or die "chdir testdir failed: $!\n";
|
|
|
|
require TestDriver;
|
|
|
|
cleanup();
|
|
|
|
my $td = new TestDriver('c-objects');
|
|
|
|
foreach my $i (qw(1 2))
|
|
{
|
|
$td->runtest("c-objects ($i)",
|
|
{$td->COMMAND => "pdf-c-objects $i.pdf '' a.pdf"},
|
|
{$td->STRING => "", $td->EXIT_STATUS => 0});
|
|
$td->runtest("check output",
|
|
{$td->FILE => "a.pdf"},
|
|
{$td->FILE => "$i-out.pdf"});
|
|
}
|
|
|
|
cleanup();
|
|
|
|
$td->report(4);
|
|
|
|
sub cleanup
|
|
{
|
|
unlink "a.pdf";
|
|
}
|