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: Fix guestfs_065_implicit_close.ml for OCaml 5

Browse Source 
Link: https://discuss.ocaml.org/t/ocaml-5-forcing-objects-to-be-collected-and-finalized/12492/3
Thanks: Josh Berdine
Thanks: Vincent Laviron
(cherry picked from commit 7d4e9c927e)
This commit is contained in:
Richard W.M. Jones
2023-06-27 16:20:49 +01:00
parent c13dd5b6d4
commit b6c9d46248
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
ocaml/t/guestfs_065_implicit_close.ml
View File

@@ -16,22 +16,27 @@
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
let close_invoked = ref 0
let [@inline never][@local never] run () =
let close_invoked = ref 0 in
let close _ _ _ _ =
incr close_invoked
let close _ _ _ _ =
incr close_invoked
in
let () =
let g = new Guestfs.guestfs () in
ignore (g#set_event_callback close [Guestfs.EVENT_CLOSE]);
assert (!close_invoked = 0)
(* Allow the 'g' handle to go out of scope here, to ensure there is no
* reference held on the stack.
*)
let () =
let g = new Guestfs.guestfs () in
ignore (g#set_event_callback close [Guestfs.EVENT_CLOSE]);
assert (!close_invoked = 0)
(* Allow the 'g' handle to go out of scope here, to ensure there is no
* reference held on the stack.
*)
in
(* This should cause the GC to close the handle. *)
let () = Gc.full_major ()
(* This should cause the GC to close the handle. *)
Gc.full_major ();
let () = assert (!close_invoked = 1)
assert (!close_invoked = 1);
let () = Gc.compact ()
Gc.compact ()
let () = run ()