aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/test/port_SUITE.erl
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2010-11-30 14:56:30 +0100
committerSverker Eriksson <[email protected]>2010-11-30 14:56:30 +0100
commitb7c888a9a89ea2bf68b740a93711f1413d8a577c (patch)
treee17cbc00a5c62527b772e060369d9b3f8a9f1b5b /erts/emulator/test/port_SUITE.erl
parent89d56a4e6fda65964f475fba58fbefec3825f9d9 (diff)
downloadotp-b7c888a9a89ea2bf68b740a93711f1413d8a577c.tar.gz
otp-b7c888a9a89ea2bf68b740a93711f1413d8a577c.tar.bz2
otp-b7c888a9a89ea2bf68b740a93711f1413d8a577c.zip
Let port_SUITE:close_deaf_port wait for OS procs
Diffstat (limited to 'erts/emulator/test/port_SUITE.erl')
-rw-r--r--erts/emulator/test/port_SUITE.erl4
1 files changed, 3 insertions, 1 deletions
diff --git a/erts/emulator/test/port_SUITE.erl b/erts/emulator/test/port_SUITE.erl
index 93f9534138..7fe532abd0 100644
--- a/erts/emulator/test/port_SUITE.erl
+++ b/erts/emulator/test/port_SUITE.erl
@@ -2314,13 +2314,15 @@ close_deaf_port(Config) when is_list(Config) ->
?line port_close(Port),
Res = close_deaf_port_1(0, DeadPort),
+ io:format("Waiting for OS procs to terminate...\n"),
+ receive after 5*1000 -> ok end,
?line test_server:timetrap_cancel(Dog),
Res.
close_deaf_port_1(1000, _) ->
ok;
close_deaf_port_1(N, Cmd) ->
- Timeout = integer_to_list(random:uniform(10*1000)),
+ Timeout = integer_to_list(random:uniform(5*1000)),
?line try open_port({spawn_executable,Cmd},[{args,[Timeout]}]) of
Port ->
?line erlang:port_command(Port,"Hello, can you hear me!?!?"),