Reformat tests

Apply erlfmt using `rebar3 fmt`.

Author: bettio

tests/erlang_tests/alisp.erl

@@ -23,13 +23,15 @@
 -export([run/1, start/0, eval/1, put_vars/1]).
 
 start() ->
-    run("(let ((y -1))
-    (do ((i 0 (+ 1 i))) ((> i 2) y)
-        (let ((x (+ 39 1)))
-            (cond
-                ((= (+ 7 (+ (quote 5) 2)) 13) (0))
-                ((= 1 1) (setq y (+ x i)))
-                ((= 1 0) (-1))))))").
+    run(
+        "(let ((y -1))\n"
+        "    (do ((i 0 (+ 1 i))) ((> i 2) y)\n"
+        "        (let ((x (+ 39 1)))\n"
+        "            (cond\n"
+        "                ((= (+ 7 (+ (quote 5) 2)) 13) (0))\n"
+        "                ((= 1 1) (setq y (+ x i)))\n"
+        "                ((= 1 0) (-1))))))"
+    ).
 
 run(S) ->
     L = sexp_lexer:string(S),
@@ -41,54 +43,43 @@ eval(S) when is_atom(S) ->
         undefined -> throw(unbound);
         Val -> Val
     end;
-
 eval(I) when is_integer(I) ->
     I;
-
 eval([do, Vars, [_TestExpr, _ReturnExpr] | _Exprs] = Do) ->
     Restore = put_do_vars(Vars),
     execute_do(Do, Restore);
-
 eval(['let', Vars | Exprs]) ->
     Restore = put_vars(Vars),
     Res = eval_list(Exprs),
     _ = delete_vars(Vars),
     _ = restore_vars(Restore),
     Res;
-
 eval([quote, Args]) ->
     Args;
-
 eval(['cond' | Exps]) ->
     eval_cond_tests(Exps);
-
 eval(['progn' | Exprs]) ->
     eval_list(Exprs);
-
 eval(['setq', Name, Expr]) ->
     Val = eval(Expr),
     put(Name, Val),
     Val;
-
 eval([Fn | Args]) when is_atom(Fn) ->
     EvaluatedArgs = eval_args(Args),
     func_eval(Fn, EvaluatedArgs).
 
 func_eval('=', [Arg1, Arg2]) ->
     Arg1 == Arg2;
-
 func_eval(Fn, EvaluatedArgs) ->
     fapply(erlang, Fn, EvaluatedArgs).
 
 eval_args([]) ->
     [];
-
 eval_args([A | T]) ->
     [eval(A) | eval_args(T)].
 
 eval_cond_tests([]) ->
     [];
-
 eval_cond_tests([[Test, Action] | T]) ->
     case eval(Test) of
         true -> eval(Action);
@@ -97,17 +88,14 @@ eval_cond_tests([[Test, Action] | T]) ->
 
 eval_list([]) ->
     [];
-
 eval_list([Exp]) ->
     eval(Exp);
-
 eval_list([Exp | T]) ->
     eval(Exp),
     eval_list(T).
 
 put_vars([]) ->
     [];
-
 put_vars([[Name, Expr] | T]) ->
     Val = eval(Expr),
     case put(Name, Val) of
@@ -117,7 +105,6 @@ put_vars([[Name, Expr] | T]) ->
 
 put_do_vars([]) ->
     [];
-
 put_do_vars([[Name, Expr, _UpdateExpr] | T]) ->
     Val = eval(Expr),
     case put(Name, Val) of
@@ -127,28 +114,24 @@ put_do_vars([[Name, Expr, _UpdateExpr] | T]) ->
 
 delete_vars([]) ->
     ok;
-
 delete_vars([[Name, _Val] | T]) ->
     erase(Name),
     delete_vars(T).
 
 delete_do_vars([]) ->
     ok;
-
 delete_do_vars([[Name, _Val, _UpdateExpr] | T]) ->
     erase(Name),
     delete_do_vars(T).
 
 restore_vars([]) ->
     ok;
-
 restore_vars([{Name, Val} | T]) ->
     _ = put(Name, Val),
     restore_vars(T).
 
 do_update_vars([]) ->
     [];
-
 do_update_vars([[Name, _Expr, UpdateExpr] | T]) ->
     Val = eval(UpdateExpr),
     _ = put(Name, Val),
@@ -183,5 +166,6 @@ fapply(Module, Function, Args) ->
             Module:Function(Arg1, Arg2, Arg3, Arg4, Arg5);
         [Arg1, Arg2, Arg3, Arg4, Arg5, Arg6] ->
             Module:Function(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6);
-        _ -> throw(badarg)
+        _ ->
+            throw(badarg)
     end.

tests/erlang_tests/bigfact.erl

@@ -26,4 +26,4 @@ start() ->
     bigfact:factorial(20) div bigfact:factorial(15).
 
 factorial(0) -> 1;
-factorial(N) -> N * factorial(N-1).
+factorial(N) -> N * factorial(N - 1).

tests/erlang_tests/bigfact2.erl

@@ -26,4 +26,4 @@ start() ->
     abs(-factorial(20)) rem -(factorial(12) + 1).
 
 factorial(0) -> 1;
-factorial(N) -> N * factorial(N-1).
+factorial(N) -> N * factorial(N - 1).

tests/erlang_tests/bigfact3.erl

@@ -26,4 +26,4 @@ start() ->
     (factorial(20) - factorial(19)) rem (factorial(10) + 1).
 
 factorial(0) -> 1;
-factorial(N) -> N * factorial(N-1).
+factorial(N) -> N * factorial(N - 1).

tests/erlang_tests/biggerdifference.erl

@@ -31,7 +31,7 @@ diff1500(A) ->
 double(0) ->
     0;
 double(I) ->
-    id(I)*2.
+    id(I) * 2.
 
 id(0) ->
     0;
@@ -44,4 +44,4 @@ willnotbecalled(I) ->
     2000 div I.
 
 willnotbecalled(A, B) ->
-    (A - B)*2 + 2047.
+    (A - B) * 2 + 2047.

tests/erlang_tests/bin2float.erl

@@ -19,6 +19,7 @@
 %
 
 -module(bin2float).
+
 -export([start/0, id/1, bin2float/1, float_cmp/2]).
 
 start() ->
@@ -31,15 +32,14 @@ start() ->
     F7 = bin2float(id(<<"1.0e-3">>)),
     F8 = bin2float(id(<<"0.0">>)),
     float_cmp(F1, id(1500.0)) +
-    float_cmp(F2, id(1.5)) * 2 +
-    float_cmp(F3, id(2.0)) * 4 +
-    float_cmp(F4, id(1.0)) * 8 +
-    float_cmp(F5, id(0.1)) * 16 +
-    float_cmp(F6, id(1000.0)) * 32 +
-    float_cmp(F7, id(0.001)) * 64 +
-    float_cmp(F8, id(0.0)) * 128 +
-    bin2float({}).
-
+        float_cmp(F2, id(1.5)) * 2 +
+        float_cmp(F3, id(2.0)) * 4 +
+        float_cmp(F4, id(1.0)) * 8 +
+        float_cmp(F5, id(0.1)) * 16 +
+        float_cmp(F6, id(1000.0)) * 32 +
+        float_cmp(F7, id(0.001)) * 64 +
+        float_cmp(F8, id(0.0)) * 128 +
+        bin2float({}).
 
 bin2float(F) ->
     try id(erlang:binary_to_float(F)) of
@@ -54,6 +54,7 @@ float_cmp(F1, F2) ->
         true -> 1;
         false -> 0
     end.
+
 id(I) when is_float(I) ->
     I;
 id(I) when is_binary(I) ->

tests/erlang_tests/binary_at_test.erl

@@ -23,7 +23,7 @@
 -export([start/0, id/1, atp10/1]).
 
 start() ->
-    atp10(id(<<"HelloWorld">>)) + atp10safe(id(<<"">>)) + atp10safe(42) .
+    atp10(id(<<"HelloWorld">>)) + atp10safe(id(<<"">>)) + atp10safe(42).
 
 atp10(Bin) ->
     binary:at(Bin, 4) + 10.

tests/erlang_tests/binary_first_test.erl

@@ -28,7 +28,6 @@ start() ->
 firstp10(Bin) ->
     binary:first(Bin) + 10.
 
-
 firstp10safe(Bin) ->
     try firstp10(Bin) of
         _Any -> 1

tests/erlang_tests/binary_is_iolist.erl

@@ -19,6 +19,7 @@
 %
 
 -module(binary_is_iolist).
+
 -export([start/0, id/1, try_size/1, try_to_bin/1]).
 
 start() ->
@@ -28,10 +29,8 @@ start() ->
 
 bool_to_int(true) ->
     1;
-
 bool_to_int(false) ->
     0;
-
 bool_to_int(_) ->
     -1.
 

tests/erlang_tests/booleans2_test.erl

@@ -18,15 +18,16 @@
 % SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later
 %
 
--module (booleans2_test).
+-module(booleans2_test).
+
 -export([start/0, f/5, one_if_true/1]).
 
 start() ->
     one_if_true(f(1, 1, 2, 3, 4)) +
-    one_if_true(f(1, 2, 3, 3, 4)) +
-    one_if_true(f(1, 2, 3, 4, 5)) +
-    one_if_true(f(1, 1, 2, 2, 6)) +
-    one_if_true(f(1, 1, 3, 4, 1)).
+        one_if_true(f(1, 2, 3, 3, 4)) +
+        one_if_true(f(1, 2, 3, 4, 5)) +
+        one_if_true(f(1, 1, 2, 2, 6)) +
+        one_if_true(f(1, 1, 3, 4, 1)).
 
 f(A, B, C, D, E) ->
     ((A == B) xor (C == D)) and (A /= E) and (C /= E).