diff options
| author | Rickard Green <[email protected]> | 2016-06-22 16:55:25 +0200 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2016-06-27 17:02:41 +0200 |
| commit | 46b3f3d62b2c202ad08af87130eee1e16bc464af (patch) | |
| tree | 3e20e381728ed7889c47265671287fd9e0b785a2 /erts/emulator/test/statistics_SUITE.erl | |
| parent | 7f951996600d1d09c8afa422beadf7bdde772471 (diff) | |
| download | otp-46b3f3d62b2c202ad08af87130eee1e16bc464af.tar.gz otp-46b3f3d62b2c202ad08af87130eee1e16bc464af.tar.bz2 otp-46b3f3d62b2c202ad08af87130eee1e16bc464af.zip | |
Fix statistics_SUITE:scheduler_wall_time test
Diffstat (limited to 'erts/emulator/test/statistics_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/statistics_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/erts/emulator/test/statistics_SUITE.erl b/erts/emulator/test/statistics_SUITE.erl index 71ef003b25..4a07c6a10a 100644 --- a/erts/emulator/test/statistics_SUITE.erl +++ b/erts/emulator/test/statistics_SUITE.erl @@ -311,7 +311,15 @@ scheduler_wall_time(Config) when is_list(Config) -> true -> exit({fullload, FullLoad}) end, - [exit(Pid, kill) || Pid <- [P1|HalfHogs++LastHogs]], + KillHog = fun (HP) -> + HPM = erlang:monitor(process, HP), + exit(HP, kill), + receive + {'DOWN', HPM, process, HP, killed} -> + ok + end + end, + [KillHog(Pid) || Pid <- [P1|HalfHogs++LastHogs]], AfterLoad = get_load(), {false,_} = {lists:any(fun(Load) -> Load > 25 end, AfterLoad),AfterLoad}, true = erlang:system_flag(scheduler_wall_time, false) |