diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-04-12 18:43:59 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-04-12 18:43:59 +0100 |
commit | 5b414f581f1e40f91e44914776b119ce3ef6594c (patch) | |
tree | 683aa2f6651edcc1776d379e955457e8db163dd9 /ocaml | |
parent | 681377f1b274cba0a4881ad18ccf200b9a014e94 (diff) | |
download | libguestfs-5b414f581f1e40f91e44914776b119ce3ef6594c.tar.gz libguestfs-5b414f581f1e40f91e44914776b119ce3ef6594c.tar.xz libguestfs-5b414f581f1e40f91e44914776b119ce3ef6594c.zip |
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).
Diffstat (limited to 'ocaml')
-rw-r--r-- | ocaml/t/guestfs_070_threads.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 ) () |