blob: 6ea181f17c3ed3407a26dbad6fe31f82aa2d0d86 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* TEST
include runtime_events;
*)
open Runtime_events
let got_minor = ref false
let () =
start ();
let cursor = create_cursor None in
let runtime_begin domain_id ts phase =
match phase with
| EV_MINOR ->
Gc.full_major ();
got_minor := true
| _ -> () in
let callbacks = Callbacks.create ~runtime_begin ()
in
Gc.full_major ();
ignore(read_poll cursor callbacks (Some 1_000));
assert(!got_minor)
|