From: Richard W.M. Jones 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 ()