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/t/guestfs_065_implicit_close.ml: Skip this test on OCaml 5

Browse Source 
Link: https://discuss.ocaml.org/t/ocaml-5-forcing-objects-to-be-collected-and-finalized/12492/2
This commit is contained in:
Richard W.M. Jones
2023-06-27 13:14:56 +01:00
parent 16464878cf
commit 81093d5359
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ocaml/t/guestfs_065_implicit_close.ml
View File

@@ -16,6 +16,14 @@
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
let () =
(* In OCaml 5, Gc.full_major does not actually collect the handle
* for unknown reasons. Skip the test until we can resolve this.
* https://discuss.ocaml.org/t/ocaml-5-forcing-objects-to-be-collected-and-finalized/12492/2
*)
if Sys.ocaml_version >= "5" then
exit 77
let close_invoked = ref 0
let close _ _ _ _ =