From dc3b783b51a83df1a986c1456b01a1a38dba9d96 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 30 Apr 2013 15:41:08 +0100 Subject: [PATCH] ocaml: Set close-on-exit flag to true in this test so handle is cleaned up. Otherwise the valgrind test fails since the handle resources are leaked. --- ocaml/t/guestfs_030_create_flags.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/t/guestfs_030_create_flags.ml b/ocaml/t/guestfs_030_create_flags.ml index 9c1d1c138..464c06c66 100644 --- a/ocaml/t/guestfs_030_create_flags.ml +++ b/ocaml/t/guestfs_030_create_flags.ml @@ -17,7 +17,7 @@ *) let () = - let g = new Guestfs.guestfs ~environment:false ~close_on_exit:false () in + let g = new Guestfs.guestfs ~environment:false ~close_on_exit:true () in g#parse_environment () let () = Gc.compact ()