mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml: Set close-on-exit flag to true in this test so handle is cleaned up.

Browse Source 
Otherwise the valgrind test fails since the handle resources
are leaked.
This commit is contained in:
Richard W.M. Jones
2013-04-30 15:41:08 +01:00
parent a2a6cfba56
commit dc3b783b51
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/t/guestfs_030_create_flags.ml
View File

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