Merge pull request #1221 from pguyot/w26/fix-test_gc-beam

Fix test_gc test with BEAM

`test_gc` was disabled because it failed more or less randomly with OTP26. It
seems to be related to a change in how the eval string from the command line is
processed by OTP, allocating more memory and therefore making the effect of
garbage collector less obvious. Fix it by spawning a fresh process for the test.

Special thanks to @karlsson for investigating this.

Fixes #1219

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

.github/workflows/run-tests-with-beam.yaml

@@ -61,12 +61,12 @@ jobs:
           otp: "25"
 
         - os: "ubuntu-24.04"
-          test_erlang_opts: "-s prime_smp,test_gc"
+          test_erlang_opts: "-s prime_smp"
           otp: "26"
           container: erlang:26
 
         - os: "ubuntu-24.04"
-          test_erlang_opts: "-s prime_smp,test_gc"
+          test_erlang_opts: "-s prime_smp"
           otp: "27"
           container: erlang:27
 

tests/erlang_tests/test_gc.erl

@@ -23,20 +23,36 @@
 -export([start/0]).
 
 start() ->
+    {Pid, Ref} = spawn_opt(
+        fun() ->
+            test_gc()
+        end,
+        [monitor]
+    ),
+    normal =
+        receive
+            {'DOWN', Ref, process, Pid, Reason} -> Reason;
+            Other -> {unexpected, Other}
+        after 5000 ->
+            timeout
+        end,
+    0.
+
+test_gc() ->
     {HeapSize, _} = make_a_big_heap(),
     MemorySize = erlang:process_info(self(), memory),
     true = erlang:garbage_collect(),
     {heap_size, NewHeapSize} = erlang:process_info(self(), heap_size),
     ok =
         case NewHeapSize < HeapSize of
             true -> ok;
-            _ -> fail
+            _ -> {fail, ?LINE, NewHeapSize, HeapSize}
         end,
     NewMemorySize = erlang:process_info(self(), memory),
     ok =
         case NewMemorySize < MemorySize of
             true -> ok;
-            _ -> fail
+            _ -> {fail, ?LINE, NewMemorySize, MemorySize}
         end,
     0.