[Libguestfs] [PATCH libguestfs 4/4] ocaml/t/guestfs_065_implicit_close.ml: Skip this test on OCaml 5
Richard W.M. Jones
rjones at redhat.com
Tue Jun 27 12:33:49 UTC 2023
Link: https://discuss.ocaml.org/t/ocaml-5-forcing-objects-to-be-collected-and-finalized/12492/2
---
ocaml/t/guestfs_065_implicit_close.ml | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/ocaml/t/guestfs_065_implicit_close.ml b/ocaml/t/guestfs_065_implicit_close.ml
index f2dfecbd5c..04e511dd8a 100644
--- a/ocaml/t/guestfs_065_implicit_close.ml
+++ b/ocaml/t/guestfs_065_implicit_close.ml
@@ -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 _ _ _ _ =
--
2.41.0
More information about the Libguestfs
mailing list