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

Work around test fragility on Windows

Browse Source
This commit is contained in:
Jay Berkenbilt 2019-01-07 12:51:34 -05:00
parent 8f6f7cec50
commit e6f1e54771
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
examples/qtest/create.test
View File

@ -11,9 +11,30 @@ cleanup();
my $td = new TestDriver('create');
# This test is fragile on Windows for unknown reasons. Sometimes the
# output of the command is truncated even though it works and exits
# normally.
for (my $i = 0; $i < 5; ++$i)
{
unlink "tmp.out";
if ((system("pdf-create a.pdf > tmp.out") == 0) &&
open(F, "<check.tmpout"))
{
local $/ = undef;
my $text = <F>;
close(F);
if ($text =~ m/passed/)
{
last;
}
}
sleep 1;
}
$td->runtest("create a simple PDF",
{$td->COMMAND => "pdf-create a.pdf"},
{$td->FILE => "create.out", $td->EXIT_STATUS => 0},
{$td->FILE => "tmp.out"},
{$td->FILE => "create.out"},
$td->NORMALIZE_NEWLINES);
cleanup();
@ -23,4 +44,5 @@ $td->report(1);
sub cleanup
{
unlink "a.pdf";
unlink "tmp.out";
}