diff options
| author | Rickard Green <[email protected]> | 2011-12-06 18:14:54 +0100 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2011-12-06 18:14:54 +0100 |
| commit | 8f7f2ba4ec4a94a414cd33ab5ad9486784e6f674 (patch) | |
| tree | 2df3d16f493e139baf9d953cbf9f37b56385552b | |
| parent | 99a225e257cc166ea1d1b2cc49c14e97e7c50e5d (diff) | |
| download | otp-8f7f2ba4ec4a94a414cd33ab5ad9486784e6f674.tar.gz otp-8f7f2ba4ec4a94a414cd33ab5ad9486784e6f674.tar.bz2 otp-8f7f2ba4ec4a94a414cd33ab5ad9486784e6f674.zip | |
Ensure test-proc is dead before stopping node
| -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]), |