diff options
| author | Sverker Eriksson <[email protected]> | 2015-12-15 16:37:10 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-01-13 18:23:52 +0100 |
| commit | ebe42ec76748546f464076d8cf5d1238a56baf91 (patch) | |
| tree | 262291aa4b6699c6e4f5760fd1da330f9ac01c8e /lib/kernel/test/init_SUITE.erl | |
| parent | f1447b51b578e6b5e42819ef8af057da2d0bc70e (diff) | |
| download | otp-ebe42ec76748546f464076d8cf5d1238a56baf91.tar.gz otp-ebe42ec76748546f464076d8cf5d1238a56baf91.tar.bz2 otp-ebe42ec76748546f464076d8cf5d1238a56baf91.zip | |
erts: Introduce erts_code_purger
as a system process with preloaded code.
Diffstat (limited to 'lib/kernel/test/init_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/init_SUITE.erl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/kernel/test/init_SUITE.erl b/lib/kernel/test/init_SUITE.erl index 3fe618ea4c..f90eb69ef1 100644 --- a/lib/kernel/test/init_SUITE.erl +++ b/lib/kernel/test/init_SUITE.erl @@ -401,6 +401,7 @@ restart(Config) when is_list(Config) -> %% Ok, the node is up, now the real test test begins. ?line erlang:monitor_node(Node, true), ?line InitPid = rpc:call(Node, erlang, whereis, [init]), + ?line PurgerPid = rpc:call(Node, erlang, whereis, [erts_code_purger]), ?line Procs = rpc:call(Node, erlang, processes, []), ?line MaxPid = lists:last(Procs), ?line ok = rpc:call(Node, init, restart, []), @@ -418,8 +419,13 @@ restart(Config) when is_list(Config) -> InitP = pid_to_list(InitPid), ?line InitP = pid_to_list(InitPid1), + %% and same purger process! + ?line PurgerPid1 = rpc:call(Node, erlang, whereis, [erts_code_purger]), + PurgerP = pid_to_list(PurgerPid), + ?line PurgerP = pid_to_list(PurgerPid1), + ?line NewProcs0 = rpc:call(Node, erlang, processes, []), - NewProcs = lists:delete(InitPid1, NewProcs0), + NewProcs = NewProcs0 -- [InitPid1, PurgerPid1], ?line case check_processes(NewProcs, MaxPid) of true -> ok; |