diff options
| -rw-r--r-- | erts/emulator/test/scheduler_SUITE.erl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/erts/emulator/test/scheduler_SUITE.erl b/erts/emulator/test/scheduler_SUITE.erl index 05553c2028..c7ec3cbe41 100644 --- a/erts/emulator/test/scheduler_SUITE.erl +++ b/erts/emulator/test/scheduler_SUITE.erl @@ -519,13 +519,19 @@ bound_loop(NS, N, M, Sched) -> bindings(Node, BindType) -> Parent = self(), Ref = make_ref(), - spawn_link(Node, - fun () -> - enable_internal_state(), - Res = (catch erts_debug:get_internal_state( - {fake_scheduler_bindings, BindType})), - Parent ! {Ref, Res} - end), + Pid = spawn_link(Node, + fun () -> + enable_internal_state(), + Res = (catch erts_debug:get_internal_state( + {fake_scheduler_bindings, + BindType})), + Parent ! {Ref, Res} + end), + Mon = erlang:monitor(process, Pid), + receive + {'DOWN', Mon, _, _, _} -> + ok + end, receive {Ref, Res} -> ?t:format("~p: ~p~n", [BindType, Res]), |