From f7bc122570d2767e871fa3012a3670e5137acd99 Mon Sep 17 00:00:00 2001
From: Simon MacMullen <simon@rabbitmq.com>
Date: Fri, 14 Oct 2011 14:18:44 +0100
Subject: Give the supervisor hierarchy a chance to quiesce at the end of each
 test.

---
 src/mirrored_supervisor_tests.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mirrored_supervisor_tests.erl b/src/mirrored_supervisor_tests.erl
index ee9c7593..5e782a08 100644
--- a/src/mirrored_supervisor_tests.erl
+++ b/src/mirrored_supervisor_tests.erl
@@ -202,6 +202,7 @@ with_sups(Fun, Sups) ->
     Pids = [begin {ok, Pid} = start_sup(Sup), Pid end || Sup <- Sups],
     Fun(Pids),
     [kill(Pid) || Pid <- Pids, is_process_alive(Pid)],
+    timer:sleep(100),
     passed.
 
 start_sup(Spec) ->
-- 
cgit v1.2.1