diff options
| author | Björn Gustavsson <[email protected]> | 2017-06-12 16:21:18 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-06-12 16:31:06 +0200 |
| commit | e7377ce9f0a6a37973baca55d3e4ee27380b9313 (patch) | |
| tree | f587542f37bb071786e0b235a1c1f5a8cae87bbf /erts/emulator/test/after_SUITE.erl | |
| parent | 808c828c30cbb0fb57847675cc579d989c687710 (diff) | |
| download | otp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.tar.gz otp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.tar.bz2 otp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.zip | |
after_SUITE: Don't leave a process running
Diffstat (limited to 'erts/emulator/test/after_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/after_SUITE.erl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/erts/emulator/test/after_SUITE.erl b/erts/emulator/test/after_SUITE.erl index b1f7e06bf5..6409f0b336 100644 --- a/erts/emulator/test/after_SUITE.erl +++ b/erts/emulator/test/after_SUITE.erl @@ -45,13 +45,15 @@ all() -> %% Tests for an old round-off error in 'receive after'." t_after(Config) when is_list(Config) -> - spawn(fun frequent_process/0), + Frequent = spawn_link(fun frequent_process/0), Period = test_server:minutes(1), Before = erlang:monotonic_time(), receive after Period -> - After = erlang:monotonic_time(), - report(Period, Before, After) + After = erlang:monotonic_time(), + unlink(Frequent), + exit(Frequent, die), + report(Period, Before, After) end. report(Period, Before, After) -> |