aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2017-06-12 16:21:18 +0200
committerBjörn Gustavsson <[email protected]>2017-06-12 16:31:06 +0200
commite7377ce9f0a6a37973baca55d3e4ee27380b9313 (patch)
treef587542f37bb071786e0b235a1c1f5a8cae87bbf /erts/emulator
parent808c828c30cbb0fb57847675cc579d989c687710 (diff)
downloadotp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.tar.gz
otp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.tar.bz2
otp-e7377ce9f0a6a37973baca55d3e4ee27380b9313.zip
after_SUITE: Don't leave a process running
Diffstat (limited to 'erts/emulator')
-rw-r--r--erts/emulator/test/after_SUITE.erl8
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) ->