From b7c888a9a89ea2bf68b740a93711f1413d8a577c Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Tue, 30 Nov 2010 14:56:30 +0100
Subject: Let port_SUITE:close_deaf_port wait for OS procs

---
 erts/emulator/test/port_SUITE.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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!?!?"),
-- 
cgit v1.2.3