anchor.diff:                          fun(Key) ->
                               ?assertEqual(proplists:get_value(Key, Result), proplists:get_value(Key, CorrectResult))
                           end, [login, name, teams, email, dn_list]),
  -                    ?assert(meck:validate(cowboy_req)),
  -                    ?assert(meck:validate(wf_context)),
  +                    ?assert(meck:validate(gui_ctx)),
                       ?assert(meck:validate(wf))
                   end}
           ]}.
  
positive.code:                 meck:expect(gui_utils, https_get, fun(_, _) -> {ok, <<?mock_xrds_file>>} end),
                  KeyValueList = lists:zip(openid_keys(), openid_values()),
                  FullKeyValueList = KeyValueList ++ [?mock_signed_params],
                  meck:expect(wf_context, context, fun() -> #context{req = []} end),
                  meck:expect(cowboy_req, body_qs,
                      fun(_) ->
                          {ok, FullKeyValueList, []}
                      end),
  
                  meck:expect(wf, url_encode, fun(Key) -> Key end),
  
negative.code:                     KeyValueList = lists:zip(user_info_keys() -- [<<?openid_dn1_key>>, <<?openid_dn3_key>>],
                          user_info_values() -- [<<"dn1">>, <<"dn3">>]) ++ [?mock_signed_params],
                      meck:expect(wf_context, context, fun() -> #context{req = []} end),
                      meck:expect(gui_ctx, get_request_params,
                          fun() ->
                              KeyValueList
                          end),
  
                      CorrectResult =
  