diff options
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(); |