From 28a7514275ad45651e066caa2c0c0f5d9c78550b Mon Sep 17 00:00:00 2001
From: Matthias Radestock <matthias@lshift.net>
Date: Fri, 2 Oct 2009 20:37:03 +0100
Subject: fix race condition in list_connections test when in a cluster

---
 src/rabbit_tests.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/rabbit_tests.erl b/src/rabbit_tests.erl
index b4cd30bc..5c5c55f1 100644
--- a/src/rabbit_tests.erl
+++ b/src/rabbit_tests.erl
@@ -666,7 +666,10 @@ test_server_status() ->
     {ok, _} = rabbit_amqqueue:delete(Q, false, false),
 
     %% list connections
-    [#listener{host = H, port = P} | _] = rabbit_networking:active_listeners(),
+    [#listener{host = H, port = P} | _] =
+        [L || L = #listener{node = N} <- rabbit_networking:active_listeners(),
+              N =:= node()],
+
     {ok, C} = gen_tcp:connect(H, P, []),
     timer:sleep(100),
     ok = info_action(
-- 
cgit v1.2.1