diff options
author | Jay Berkenbilt <ejb@ql.org> | 2019-02-02 02:35:15 +0100 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2019-02-02 04:25:25 +0100 |
commit | 8acf636b4e525169a7f52160ce1a5423be762271 (patch) | |
tree | 084809f1558da02f21af80e180ab0fef1346cc02 /examples/qtest/create.test | |
parent | d491ed875347be9f5b5dce27dd28f28b382ca9ab (diff) | |
download | qpdf-8acf636b4e525169a7f52160ce1a5423be762271.tar.zst |
Incorporate improved Windows fragility workaround from qtest
Diffstat (limited to 'examples/qtest/create.test')
-rw-r--r-- | examples/qtest/create.test | 25 |
1 files changed, 2 insertions, 23 deletions
diff --git a/examples/qtest/create.test b/examples/qtest/create.test index ca5fbd23..f18c5fd6 100644 --- a/examples/qtest/create.test +++ b/examples/qtest/create.test @@ -11,30 +11,9 @@ 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->FILE => "tmp.out"}, - {$td->FILE => "create.out"}, + {$td->COMMAND => "pdf-create a.pdf"}, + {$td->FILE => "create.out", $td->EXIT_STATUS => 0}, $td->NORMALIZE_NEWLINES); cleanup(); |