From a050e87fb505c3f818f19112bf84ec8811c546fc Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Thu, 12 Apr 2012 18:43:59 +0100
Subject: extra-tests: ocaml: Use a short delay instead of Thread.yield.

On the new faster computer, Thread.yield wasn't yielding, so the
second thread would block the main test from proceeding (only when run
under valgrind however).
(cherry picked from commit 5b414f581f1e40f91e44914776b119ce3ef6594c)
---
 ocaml/t/guestfs_070_threads.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ocaml/t/guestfs_070_threads.ml b/ocaml/t/guestfs_070_threads.ml
index 414b0232..8b22f938 100644
--- a/ocaml/t/guestfs_070_threads.ml
+++ b/ocaml/t/guestfs_070_threads.ml
@@ -25,7 +25,8 @@ let thread = Thread.create (
   fun () ->
     while true do
       Gc.compact ();
-      ignore (Array.init 1000 (fun i -> Thread.yield (); String.create (8*i)))
+      ignore (Array.init 1000 (fun i -> String.create (8*i)));
+      Thread.delay 0.001
     done
 ) ()
 
-- 
cgit