Work around test fragility on Windows

Jay Berkenbilt
1 parent 8f6f7cec
Showing 1 changed file with 24 additions and 2 deletions
examples/qtest/create.test
@@ -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-&gt;report(1);
 sub cleanup
 {
     unlink "a.pdf";
+    unlink "tmp.out";
 }