Security: Mitigate possible privilege escalation via SG_IO ioctl (CVE-2011-4127,...

[libguestfs.git] / ocaml / t / guestfs_005_load.ml

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