anchor.diff:                 ]].
   
   to_query_string_test() ->
  -  [?assertEqual(to_query_string(Props), Expected)
  +  [?assertEqual(Expected, to_query_string(Props))
      || {Props, Expected}
         <- [
             { [{a, <<"1234">>}], <<"a=1234&">> },
  
positive.code: -include_lib("eunit/include/eunit.hrl").
  
  get_values_test() ->
      [?assertEqual(get_values(Keys, List), Expected)
       || {Keys, List, Expected}
              <- [{[a], [{a, 1}, {b, 2}], {ok, [1]}},
                  {[b], [{a, 1}, {b, 2}], {ok, [2]}},
  
negative.code:          ]].
  
  oauth_for_test() ->
      [?assertEqual(Expected, oauth_for(email, Account, Providers))
       || {Account, Providers, Expected}
              <- [
                  {<<"account@gmail.com">>, [{google, prov}], {ok, prov}},
  