diff options
| author | Lukas Larsson <[email protected]> | 2017-08-31 12:59:18 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2017-10-02 10:35:53 +0200 |
| commit | 4989ca90cac9ee7782c470ce14e4843225db5db4 (patch) | |
| tree | 371b245b25f37ab8b4b63cd5000d17a98a412993 /erts/emulator/test | |
| parent | 4ac6ce823f96310259e7c5d1e8b242e548150ace (diff) | |
| download | otp-4989ca90cac9ee7782c470ce14e4843225db5db4.tar.gz otp-4989ca90cac9ee7782c470ce14e4843225db5db4.tar.bz2 otp-4989ca90cac9ee7782c470ce14e4843225db5db4.zip | |
erts: Fix msacc testcase with new poll-thread
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/statistics_SUITE.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/erts/emulator/test/statistics_SUITE.erl b/erts/emulator/test/statistics_SUITE.erl index 7a396d273c..029a6de897 100644 --- a/erts/emulator/test/statistics_SUITE.erl +++ b/erts/emulator/test/statistics_SUITE.erl @@ -674,6 +674,16 @@ msacc_test(TmpFile) -> ets:insert(Tid, {1, hello}), ets:delete(Tid), + %% Check some IO + {ok, L} = gen_tcp:listen(0, [{active, true},{reuseaddr,true}]), + {ok, Port} = inet:port(L), + Pid = spawn(fun() -> + {ok, S} = gen_tcp:accept(L), + (fun F() -> receive M -> F() end end)() + end), + {ok, C} = gen_tcp:connect("localhost", Port, []), + [begin gen_tcp:send(C,"hello"),timer:sleep(1) end || _ <- lists:seq(1,100)], + %% Collect some garbage [erlang:garbage_collect() || _ <- lists:seq(1,100)], |