blob: 6d6ca1ef09195411e5749fb883aa8bd33af9520d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(* TEST
include runtime_events;
include unix;
libunix;
{
bytecode;
}{
native;
}
*)
let got_start = ref false
let got_fork_child = ref false
let got_fork_parent = ref false
let child_pid = ref 0
let am_child = ref false
let lifecycle domain_id ts lifecycle_event data =
match lifecycle_event with
| Runtime_events.EV_RING_START ->
begin
assert(match data with
| Some(pid) -> true
| None -> false);
got_start := true
end
| Runtime_events.EV_FORK_PARENT ->
begin
(match data with
| Some(pid) ->
begin
child_pid := pid;
got_fork_parent := true
end
| None -> assert(false));
end
| Runtime_events.EV_FORK_CHILD ->
got_fork_child := true
| _ -> ()
let () =
Runtime_events.start ();
let new_child_pid = Unix.fork () in
let cursor = Runtime_events.create_cursor None in
let callbacks = Runtime_events.Callbacks.create ~lifecycle () in
ignore(Runtime_events.read_poll cursor callbacks None);
if new_child_pid == 0 then
assert(!got_fork_child)
else
assert(!got_fork_parent && !child_pid > 0);
assert(!got_start);
|
