List-foreaching some list comprehensions

Co-authored-by: Brujo Benavides <elbrujohalcon@gmail.com>
inaka · Sep 23, 2024 · 9d8b061 · 9d8b061
1 parent 6b352e9
commit 9d8b061
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/test/wpool_SUITE.erl b/test/wpool_SUITE.erl
@@ -527,12 +527,13 @@ pool_of_supervisors(_Config) ->
     {ok, Pid} = wpool:start_sup_pool(pool_of_supervisors, Opts),
     true = erlang:is_process_alive(Pid),
 
-    [begin
-         Run = fun(Sup) -> supervisor:start_child(Sup, [{ok, #{}}]) end,
-         {ok, EchoServer} = wpool:run(pool_of_supervisors, Run, next_worker),
-         true = erlang:is_process_alive(EchoServer)
-     end
-     || _N <- lists:seq(1, 9)],
+    Run = fun(Sup, _) -> supervisor:start_child(Sup, [{ok, #{}}]) end,
+    ForEach =
+        fun(_) ->
+           {ok, EchoServer} = wpool:run(pool_of_supervisors, Run, next_worker),
+           true = erlang:is_process_alive(EchoServer)
+        end,
+    lists:foreach(ForEach, lists:seq(1, 9)),
 
     Supervisors = wpool:get_workers(pool_of_supervisors),
     [3 = proplists:get_value(active, supervisor:count_children(Supervisor))