From 9721c1107364ab6b13bde4ae0dbb772bf7f0b154 Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Fri, 3 Dec 2010 18:34:19 +0100
Subject: Fix ets_SUITE:types to not fail due to false mem leaks

Waiting for table sys_dist to stablize after slave node has been stopped.
---
 lib/stdlib/test/ets_SUITE.erl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl
index b621b17441..620848003c 100644
--- a/lib/stdlib/test/ets_SUITE.erl
+++ b/lib/stdlib/test/ets_SUITE.erl
@@ -5688,6 +5688,7 @@ make_ext_ref() ->
     Ref.
 
 init_externals() ->
+    SysDistSz = ets:info(sys_dist,size), 
     ?line Pa = filename:dirname(code:which(?MODULE)),
     ?line {ok, Node} = test_server:start_node(plopp, slave, [{args, " -pa " ++ Pa}]),
     ?line Res = case rpc:call(Node, ?MODULE, rpc_externals, []) of
@@ -5696,6 +5697,17 @@ init_externals() ->
 		    R -> R
 	        end,
     ?line test_server:stop_node(Node),
+
+    %% Wait for table 'sys_dist' to stabilize
+    repeat_while(fun() ->
+		    case ets:info(sys_dist,size) of
+			SysDistSz -> false;
+			Sz ->
+			    io:format("Waiting for sys_dist to revert size from ~p to size ~p\n",
+				      [Sz, SysDistSz]),
+			    receive after 1000 -> true end
+		    end
+		end),   
     put(externals, Res).
 
 rpc_externals() ->
-- 
cgit v1.2.3