anchor.diff:          , t_parse_error_empty
           , t_parse_error_extra_comma
           , t_parse_error_no_prefix
  +        , t_parse_ok_just_oauth_string_no_params
           , t_parse_ok_generic_pairs
           , t_parse_ok_specific_oauth_params
           , t_serialize
  +        , t_serialize_empty
           ],
       Properties = [],
       [ {?GROUP, Properties, Tests}
  
positive.code:     , t_parse_error_empty/1
      , t_parse_error_extra_comma/1
      , t_parse_error_no_prefix/1
      , t_parse_ok_generic_pairs/1
      , t_parse_ok_specific_oauth_params/1
      , t_serialize/1
      ]).
  
  
  
negative.code:     Result = oauth1_parameters:of_http_header_authorization(ParamsBin),
      ct:log("Result: ~p", [Result]),
      {error, {invalid_format, {parser, _}}} = Result.
  
  t_parse_ok_just_oauth_string_no_params(_Cfg) ->
      ParamsBin = <<"OAuth">>,
      ParamsExpected = [],
      Result = oauth1_parameters:of_http_header_authorization(ParamsBin),
      ct:log("Result: ~p", [Result]),
      {ok, ParamsParsed} = Result,
      ParamsParsed = ParamsExpected.
  
  t_parse_ok_generic_pairs(_Cfg) ->
      ParamsBin = <<"OAuth k1=\"v1\", k2=\"v2\"">>,
  