Don't depend on the scheduling order to verify success

erlang · Oct 8, 2024 · e688fae · e688fae
1 parent d49b7c0
commit e688fae
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/kernel/test/gen_tcp_misc_SUITE.erl b/lib/kernel/test/gen_tcp_misc_SUITE.erl
@@ -9488,11 +9488,9 @@ fill_send_buffers(Payload, Sa, Sb, Timeout, N) ->
     end.
 
 recv_data(_Payload, Sa, Ref, Ref2, M, N) when M < N ->
-    receive Msg ->
-            {send_result, Ref, ok} = Msg,
+    receive {send_result, Ref, ok} ->
             io:format("[~w] Send finished ~w~n", [self(), Ref]),
-            receive Msg2 ->
-                    {send_result, Ref2, ok} = Msg2,
+            receive {send_result, Ref2, ok} ->
                     io:format("[~w] Send finished ~w~n", [self(), Ref2]),
                     gen_tcp:shutdown(Sa, write),
                     {error, closed} = gen_tcp:recv(Sa, 0),