anchor.diff:                      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(cowboy_req, body_qs,
  -                        fun(_) ->
  -                            {ok, KeyValueList, []}
  +                    meck:expect(gui_ctx, get_request_params,
  +                        fun() ->
  +                            KeyValueList
                           end),
   
                       CorrectResult =
  
positive.code:         <<"openid.ext1.value.dn3">>,
          <<"openid.ext1.type.teams">>,
          <<"openid.ext1.value.teams">>,
          <<"openid.ext1.type.POSTresponse">>,
          <<"openid.ext1.value.POSTresponse">>,
          <<"openid.sreg.nickname">>,
          <<"openid.sreg.email">>,
          <<"openid.sreg.fullname">>,
  
negative.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(gui_ctx, get_request_params,
                      fun() ->
                          FullKeyValueList
                      end),
  
                  meck:expect(wf, url_encode, fun(Key) -> Key end),
  