From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 29 Nov 2011 17:13:45 +0000 (+0000)
Subject: ocaml: Load test should call Gc.compact to flag memory errors.
X-Git-Tag: 1.15.8~9
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=082a55f76cd61f3590976f6b095552ea65259ced;p=libguestfs.git

ocaml: Load test should call Gc.compact to flag memory errors.
---

diff --git a/ocaml/t/guestfs_005_load.ml b/ocaml/t/guestfs_005_load.ml
index de67091..ace873f 100644
--- a/ocaml/t/guestfs_005_load.ml
+++ b/ocaml/t/guestfs_005_load.ml
@@ -22,3 +22,5 @@ let _ = Guestfs.create
 let _ =
   let g = new Guestfs.guestfs () in
   g#get_verbose ()
+
+let () = Gc.compact ()