From 7ae91bc8cce3c59d53048bfb3d93531f19f6aabb Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez@inria.fr>
Date: Fri, 20 Oct 2023 20:16:44 +0200
Subject: [PATCH] fix runtime-events tests to be more robust to GC variations

---
 testsuite/tests/lib-runtime-events/test.ml        | 2 ++
 testsuite/tests/lib-runtime-events/test.reference | 2 +-
 testsuite/tests/lib-runtime-events/test_caml.ml   | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/lib-runtime-events/test.ml b/testsuite/tests/lib-runtime-events/test.ml
index 2e7e1b90abc9..4eb61ae717f6 100644
--- a/testsuite/tests/lib-runtime-events/test.ml
+++ b/testsuite/tests/lib-runtime-events/test.ml
@@ -7,6 +7,7 @@ external start_runtime_events : unit -> unit = "start_runtime_events"
 external get_event_counts : unit -> (int * int) = "get_event_counts"
 
 let () =
+    Gc.full_major ();
     start_runtime_events ();
     for a = 0 to 2 do
         ignore(Sys.opaque_identity(ref 42));
@@ -21,4 +22,5 @@ let () =
         Gc.compact ();
         Runtime_events.pause ()
     done;
+    let (minors, majors) = get_event_counts () in
     Printf.printf "minors: %d, majors: %d\n" minors majors
diff --git a/testsuite/tests/lib-runtime-events/test.reference b/testsuite/tests/lib-runtime-events/test.reference
index 1b81e9aba255..185f0174fede 100644
--- a/testsuite/tests/lib-runtime-events/test.reference
+++ b/testsuite/tests/lib-runtime-events/test.reference
@@ -1,2 +1,2 @@
 minors: 9, majors: 0
-minors: 9, majors: 0
+minors: 18, majors: 0
diff --git a/testsuite/tests/lib-runtime-events/test_caml.ml b/testsuite/tests/lib-runtime-events/test_caml.ml
index 518c7134ae0e..f25013b3b153 100644
--- a/testsuite/tests/lib-runtime-events/test_caml.ml
+++ b/testsuite/tests/lib-runtime-events/test_caml.ml
@@ -78,6 +78,7 @@ let majors_per_epoch = 50
 let conses_per_major = 10
 
 let () =
+    Gc.full_major ();
     let list_ref = ref [] in
     start ();
     let cursor = create_cursor None in