anchor.diff:      ProviderList = fun() ->
                                {ok, [ {<<"id">>, pid1},
                                       {<<"ID1">>, pid2},
  -                                    {<<"ID2">>, pid3}]}
  +                                    {<<"ID2">>, pid3},
  +                                    {<<"ID3">>, pid4}]}
                        end,
   
       RetrieveUserInfo = fun(_, _, _) ->
  
positive.code:     ok.
  
  additional_login_test() ->
      %% TODO This test probably requires unmecked session mgmt to be meaningful
      {ok, Meck} = start_meck(),
      try
          Issuer = ?ISSUER_URL,
          OidcToken1 = #{id => #{claims => #{sub => <<"sub">>, iss => Issuer}},
                         access => #{token => <<"accestoken">>},
                         cookies => []
  
negative.code:         {ok, #{session_pid := Pid}} = watts:login_with_oidcc(OidcToken1),
  
          {ok, Token} = watts_session:get_sess_token(Pid),
          OidcToken2 = #{id => #{claims => #{sub => <<"sub">>, iss => Issuer2}},
                         access => #{token => <<"accestoken">>},
                         cookies => [{watts_http_util:cookie_name(), Token}]
                        },
          Params = [],
          ServiceId = <<"service0815">>,
          Provider = <<"ID3">>,
          ok = watts_session:set_redirection(ServiceId, Params, Provider, Pid),
          {ok, #{session_pid := Pid}} = watts:login_with_oidcc(OidcToken2),
          {ok, UserInfo} = watts_session:get_user_info(Pid),
          true = watts_userinfo:has_additional_login(ServiceId, Provider, UserInfo),
  
          ok = watts:logout(Pid),
          test_util:wait_for_process_to_die(Pid, 100)
  