Format tests/lib/*

Apply erlfmt using `rebar3 fmt`.

Author: bettio

tests/libs/eavmlib/test_logger.erl

@@ -73,11 +73,9 @@ test() ->
 
     ok.
 
-
 do_log({_Location, _Time, _Pid, Level, _Msg} = _LogRequest) ->
     increment_counter(Level).
 
-
 -record(state, {
     counters = [
         {info, 0},
@@ -104,13 +102,14 @@ get_counter(Level) ->
         {Ref, Counter} -> Counter
     end.
 
-counter(#state{counters=Counters} = State) ->
-    NewState = receive
-        {increment, Level} ->
-            Value = proplists:get_value(Level, Counters),
-            State#state{counters=[{Level, Value + 1} | lists:keydelete(Level, 1, Counters)]};
-        {Pid, Ref, get_counter, Level} ->
-            Pid ! {Ref, proplists:get_value(Level, Counters)},
-            State
-    end,
+counter(#state{counters = Counters} = State) ->
+    NewState =
+        receive
+            {increment, Level} ->
+                Value = proplists:get_value(Level, Counters),
+                State#state{counters = [{Level, Value + 1} | lists:keydelete(Level, 1, Counters)]};
+            {Pid, Ref, get_counter, Level} ->
+                Pid ! {Ref, proplists:get_value(Level, Counters)},
+                State
+        end,
     counter(NewState).

tests/libs/eavmlib/test_timer_manager.erl

@@ -47,13 +47,11 @@ test_send_after() ->
     timer_manager:send_after(100, self(), ping),
     pong = wait_for_timeout(ping, 5000).
 
-
 wait_for_timeout(Msg, Timeout) ->
     receive
         {timeout, _TimerRef, Msg} ->
             ok;
         Msg ->
             pong
-    after Timeout ->
-        fail
+    after Timeout -> fail
     end.

tests/libs/estdlib/test_gen_server.erl

@@ -24,8 +24,8 @@
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2]).
 
 -record(state, {
-    num_casts=0,
-    num_infos=0
+    num_casts = 0,
+    num_infos = 0
 }).
 
 test() ->
@@ -88,9 +88,8 @@ test_info() ->
     gen_server:stop(Pid),
     ok.
 
-
- test_init_exception() ->
-     try
+test_init_exception() ->
+    try
         case gen_server:start(?MODULE, throwme, []) of
             {ok, _Pid} ->
                 expected_error_on_exception;
@@ -102,7 +101,6 @@ test_info() ->
             {did_not_expect_an_exception, E}
     end.
 
-
 test_late_reply() ->
     {ok, Pid} = gen_server:start(?MODULE, [], []),
     %%
@@ -134,7 +132,7 @@ test_late_reply() ->
 test_concurrent_clients() ->
     {ok, Pid} = gen_server:start(?MODULE, [], []),
     Self = self(),
-    P1 = spawn(fun() -> make_requests(Pid, Self, 1,  1000) end),
+    P1 = spawn(fun() -> make_requests(Pid, Self, 1, 1000) end),
     P2 = spawn(fun() -> make_requests(Pid, Self, 10, 100) end),
     P3 = spawn(fun() -> make_requests(Pid, Self, 20, 50) end),
     wait_for(P1),
@@ -174,24 +172,27 @@ handle_call(async_ping, From, State) ->
     erlang:spawn(gen_server, reply, [From, pong]),
     {noreply, State};
 handle_call({reply_after, Ms, Reply}, From, State) ->
-    spawn(fun() -> timer:sleep(Ms), gen_server:reply(From, Reply) end),
+    spawn(fun() ->
+        timer:sleep(Ms),
+        gen_server:reply(From, Reply)
+    end),
     {noreply, State};
-handle_call(get_num_casts, From, #state{num_casts=NumCasts} = State) ->
+handle_call(get_num_casts, From, #state{num_casts = NumCasts} = State) ->
     gen_server:reply(From, NumCasts),
-    {noreply, State#state{num_casts=0}};
-handle_call(get_num_infos, From, #state{num_infos=NumInfos} = State) ->
+    {noreply, State#state{num_casts = 0}};
+handle_call(get_num_infos, From, #state{num_infos = NumInfos} = State) ->
     gen_server:reply(From, NumInfos),
-    {noreply, State#state{num_infos=0}}.
+    {noreply, State#state{num_infos = 0}}.
 
 handle_cast(crash, _State) ->
     throw(test_crash);
-handle_cast(ping, #state{num_casts=NumCasts} = State) ->
-    {noreply, State#state{num_casts=NumCasts + 1}};
+handle_cast(ping, #state{num_casts = NumCasts} = State) ->
+    {noreply, State#state{num_casts = NumCasts + 1}};
 handle_cast(_Request, State) ->
     {noreply, State}.
 
-handle_info(ping, #state{num_infos=NumInfos} = State) ->
-    {noreply, State#state{num_infos=NumInfos + 1}};
+handle_info(ping, #state{num_infos = NumInfos} = State) ->
+    {noreply, State#state{num_infos = NumInfos + 1}};
 handle_info(_Info, State) ->
     {noreply, State}.
 

tests/libs/estdlib/test_gen_statem.erl

@@ -24,8 +24,8 @@
 -export([init/1, initial/3, terminate/3]).
 
 -record(data, {
-    num_casts=0,
-    num_infos=0
+    num_casts = 0,
+    num_infos = 0
 }).
 
 test() ->
@@ -34,7 +34,6 @@ test() ->
     ok = test_info(),
     ok.
 
-
 test_call() ->
     {ok, Pid} = gen_statem:start(?MODULE, [], []),
     pong = gen_statem:call(Pid, ping),
@@ -78,14 +77,14 @@ init(_) ->
 
 initial({call, From}, ping, Data) ->
     {next_state, initial, Data, [{reply, From, pong}]};
-initial(cast, ping, #data{num_casts=NumCasts} = Data) ->
-    {next_state, initial, Data#data{num_casts=NumCasts+1}};
-initial(info, ping, #data{num_infos=NumInfos} = Data) ->
-    {next_state, initial, Data#data{num_infos=NumInfos+1}};
-initial({call, From}, get_num_casts, #data{num_casts=NumCasts} = Data) ->
-    {next_state, initial, Data#data{num_casts=0}, [{reply, From, NumCasts}]};
-initial({call, From}, get_num_infos, #data{num_infos=NumInfos} = Data) ->
-    {next_state, initial, Data#data{num_infos=0}, [{reply, From, NumInfos}]}.
+initial(cast, ping, #data{num_casts = NumCasts} = Data) ->
+    {next_state, initial, Data#data{num_casts = NumCasts + 1}};
+initial(info, ping, #data{num_infos = NumInfos} = Data) ->
+    {next_state, initial, Data#data{num_infos = NumInfos + 1}};
+initial({call, From}, get_num_casts, #data{num_casts = NumCasts} = Data) ->
+    {next_state, initial, Data#data{num_casts = 0}, [{reply, From, NumCasts}]};
+initial({call, From}, get_num_infos, #data{num_infos = NumInfos} = Data) ->
+    {next_state, initial, Data#data{num_infos = 0}, [{reply, From, NumInfos}]}.
 
 terminate(_Reason, _StateName, _Data) ->
     ok.

tests/libs/estdlib/test_gen_tcp.erl

@@ -34,7 +34,10 @@ test_echo_server() ->
     {ok, {_Address, Port}} = inet:sockname(ListenSocket),
 
     Self = self(),
-    spawn(fun() -> Self ! ready, accept(Self, ListenSocket) end),
+    spawn(fun() ->
+        Self ! ready,
+        accept(Self, ListenSocket)
+    end),
     receive
         ready ->
             ok
@@ -47,7 +50,6 @@ test_echo_server() ->
 
     ok.
 
-
 accept(Pid, ListenSocket) ->
     case gen_tcp:accept(ListenSocket) of
         {ok, Socket} ->
@@ -57,7 +59,6 @@ accept(Pid, ListenSocket) ->
             ok
     end.
 
-
 echo(Pid, Socket) ->
     receive
         {tcp_closed, _Socket} ->
@@ -68,7 +69,6 @@ echo(Pid, Socket) ->
             echo(Pid, Socket)
     end.
 
-
 test_send_receive(Port, N) ->
     {ok, Socket} = gen_tcp:connect(localhost, Port, [{active, true}]),
 
@@ -77,11 +77,9 @@ test_send_receive(Port, N) ->
     gen_tcp:close(Socket),
     receive
         server_closed -> ok
-    after 1000 ->
-        throw(timeout)
+    after 1000 -> throw(timeout)
     end.
 
-
 loop(_Socket, 0) ->
     ok;
 loop(Socket, I) ->

tests/libs/estdlib/test_gen_udp.erl

@@ -39,22 +39,22 @@ test_send_receive_active() ->
     ok = gen_udp:close(Socket),
     ok.
 
-
 make_messages(0) ->
     [];
 make_messages(N) ->
     [<<"foo">> | make_messages(N - 1)].
 
 start_sender(Socket, Port, Msgs) ->
     send(Socket, Port, Msgs),
-    receive stop ->
-        ok
+    receive
+        stop ->
+            ok
     end.
 
 send(_Socket, _Port, []) ->
     ok;
 send(Socket, Port, [Msg | Rest]) ->
-    gen_udp:send(Socket, {127,0,0,1}, Port, Msg),
+    gen_udp:send(Socket, {127, 0, 0, 1}, Port, Msg),
     send(Socket, Port, Rest).
 
 count_received() ->
@@ -64,6 +64,5 @@ count_received(I) ->
     receive
         _Msg ->
             count_received(I + 1)
-    after 100 ->
-        I
+    after 100 -> I
     end.

tests/libs/estdlib/test_io_lib.erl

@@ -51,7 +51,10 @@ test() ->
     ?ASSERT_MATCH(io_lib:format("~p", [foo]), "foo"),
     ?ASSERT_MATCH(io_lib:format("\t~p", [bar]), "\tbar"),
 
-    ?ASSERT_MATCH(io_lib:format("a ~p ~p of ~p patterns", [small, number, interesting]), "a small number of interesting patterns"),
+    ?ASSERT_MATCH(
+        io_lib:format("a ~p ~p of ~p patterns", [small, number, interesting]),
+        "a small number of interesting patterns"
+    ),
     ?ASSERT_MATCH(io_lib:format("escape ~~p~n", []), "escape ~p\n"),
 
     ?ASSERT_FAILURE(io_lib:format("no pattern", [foo]), bad_format),