From 8acf636b4e525169a7f52160ce1a5423be762271 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Fri, 1 Feb 2019 20:35:15 -0500
Subject: Incorporate improved Windows fragility workaround from qtest

---
 examples/qtest/create.test | 25 ++-----------------------
 1 file changed, 2 insertions(+), 23 deletions(-)

(limited to 'examples/qtest')

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();
-- 
cgit v1.2.3-54-g00ecf