From ea7a57a175e58a72231111a5bd612035379e8283 Mon Sep 17 00:00:00 2001
From: Patrik Nyblom <pan@erlang.org>
Date: Tue, 21 Sep 2010 17:00:58 +0200
Subject: Teach gen_udp_SUITE:connect testcase about econnreset on Windows

---
 lib/kernel/test/gen_udp_SUITE.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/test/gen_udp_SUITE.erl b/lib/kernel/test/gen_udp_SUITE.erl
index bbdfbd3cb0..2ff1d7210a 100644
--- a/lib/kernel/test/gen_udp_SUITE.erl
+++ b/lib/kernel/test/gen_udp_SUITE.erl
@@ -423,7 +423,11 @@ connect(Config) when is_list(Config) ->
     ?line ok = gen_udp:close(S1),
     ?line ok = gen_udp:connect(S2, Addr, P1),
     ?line ok = gen_udp:send(S2, <<16#deadbeef:32>>),
-    ?line {error,econnrefused} = gen_udp:recv(S2, 0, 5),
+    ?line ok = case gen_udp:recv(S2, 0, 5) of
+        {error,econnrefused} -> ok;
+	{error,econnreset} -> ok;
+	Other -> Other
+    end,
     ok.
 
 implicit_inet6(Config) when is_list(Config) ->
-- 
cgit v1.2.3