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