%% -*- Mode: erlang; indent-tabs-mode: nil -*-
%% Copyright Ericsson AB 2017. All Rights Reserved.

%%% Function (and funs) indentation

%%% Not everything in these test are set in stone
%%% better indentation rules can be added but by having
%%% these tests we can see what changes in new implementations
%%% and notice when doing unintentional changes

-export([
         func1/0,
         func2/0,
         a_function_with_a_very_very_long_name/0,
         when1/2
        ]).

-compile([nowarn_unused_functions,
          {inline, [
                    func2/2,
                    func3/2
                   ]
          }
         ]).

func1() ->
    basic.

func2(A1,
      A2) ->
    ok.

func3(
  A1,
  A2
 ) ->
    ok.

%% Okeefe style
func4(A1
     ,A2
     ,A3
     ) ->
    ok.

a_function_with_a_very_very_long_name() ->
    A00 = #record{
             field1=1,
             field2=1
            },
    A00.

when1(W1, W2)
  when is_number(W1),
       is_number(W2) ->
    ok.

when2(W1,W2,W3) when
      W1 > W2,
      W2 > W3 ->
    ok.

when3(W1,W2,W3) when
      W1 > W2,
      W2 > W3
      ->
    ok.

when4(W1,W2,W3)
  when
      W1 > W2,
      W2 > W3 ->
    ok.

match1({[H|T],
        Other},
       M1A2) ->
    ok.

match2(
  {
   [H|T],
   Other
  },
  M2A2
 ) ->
    ok.

match3({
        M3A1,
        [
         H |
         T
        ],
        Other
       },
       M3A2
      ) ->
    ok.

match4(<<
         M4A:8,
         M4B:16/unsigned-integer,
         _/binary
       >>,
       M4C) ->
    ok.

match5(M5A,
       #record{
          b=M5B,
          c=M5C
         }
      ) ->
    ok.

match6(M6A,
       #{key6a := a6,
         key6b := b6
        }) ->
    ok.

funs(1)
  when
      X ->
    %% Changed fun to one indention level
    %% 'when' and several clause forces a depth of '4'
    Var = spawn(fun(X, _)
                      when X == 2;
                           X > 10 ->
                        hello,
                        case Hello() of
                            true when is_atom(X) ->
                                foo;
                            false ->
                                bar
                        end;
                   (Foo) when is_atom(Foo),
                              is_integer(X) ->
                        X = 6* 45,
                        Y = true andalso
                            kalle
                end),
    Var;
funs(2) ->
    %% check EEP37 named funs
    Fn1 = fun
              Factory(N) when
                    N > 0 ->
                  F = Fact(N-1),
                  N * F;
              Factory(0) ->
                  1
          end,
    Fn1;
funs(3) ->
    %% check anonymous funs too
    Fn2 = fun(0) ->
                  1;
             (N) ->
                  N
          end,
    ok;
funs(4) ->
    X = lists:foldr(fun(M) ->
                            <<M/binary, " ">>
                    end, [], Z),
    A = <<X/binary, 0:8>>,
    A.