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.14.5~11
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=5d0546c072964339ce6e562a9ec9ce8c12be7a43;p=libguestfs.git

ocaml: Load test should call Gc.compact to flag memory errors.
(cherry picked from commit 082a55f76cd61f3590976f6b095552ea65259ced)
---

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 ()