Merge pull request #2044 from pguyot/w51/fix-race-condition-in-test_ets

Fix a race condition in `test_ets`

These changes are made under both the "Apache 2.0" and the "GNU Lesser General
Public License 2.1 or later" license terms (dual license).

SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later

Author: bettio

tests/erlang_tests/test_ets.erl

@@ -277,16 +277,26 @@ assert_stored_key(T, Key) ->
 isolated(Fun) ->
     Ref = make_ref(),
     Self = self(),
-    spawn_opt(
+    {Pid, MRef} = spawn_opt(
         fun() ->
             Ret = Fun(),
             Self ! {ok, Ref, Ret}
         end,
-        []
+        [monitor]
     ),
     receive
-        {ok, Ref, Ret} -> Ret
-    after 500 -> {error, timeout}
+        {ok, Ref, Ret} ->
+            normal =
+                receive
+                    {'DOWN', MRef, process, Pid, Reason} -> Reason
+                end,
+            Ret;
+        {'DOWN', MRef, process, Pid, Reason} ->
+            {error, {process_died, Reason}}
+    after 500 ->
+        demonitor(MRef, [flush]),
+        exit(Pid, kill),
+        {error, timeout}
     end.
 
 assert_badarg(Fun) ->