Fixing error in oauth_for test

Additionally I noticed that the eunit assert comparison args should be
something like `_assertEqual(Expected, Value)` rather than the other way
around. It helps make the test messages clearer.

src/switchboard_oauth.erl

@@ -126,6 +126,7 @@ oauth_for({xoauth2, Account, {_, Provider}}) ->
 -spec oauth_for(provider | email, binary(), [proplists:property()]) ->
  {ok, {ClientID :: string, ClientSecret :: string}} | {error, _}.
 oauth_for(provider, Provider, Providers) ->
+ lager:warning("Providers: ~p", [Providers]),
  case proplists:get_value(Provider, Providers) of
  undefined ->
  {error, {no_provider_oauth, Provider}}; 
@@ -172,7 +173,7 @@ get_values([Key | Keys], List, Acc) ->
 -include_lib("eunit/include/eunit.hrl").
 
 get_values_test() ->
- [?assertEqual(get_values(Keys, List), Expected)
+ [?assertEqual(Expected, get_values(Keys, List))
  || {Keys, List, Expected}
  <- [{[a], [{a, 1}, {b, 2}], {ok, [1]}},
  {[b], [{a, 1}, {b, 2}], {ok, [2]}},
@@ -182,15 +183,15 @@ get_values_test() ->
  ]].
 
 to_query_string_test() ->
- [?assertEqual(to_query_string(Props), Expected)
+ [?assertEqual(Expected, to_query_string(Props))
  || {Props, Expected}
  <- [
  { [{a, <<"1234">>}], <<"a=1234&">> },
  { [{a, <<"1234">>}, {b, <<"token">>}], <<"a=1234&b=token&">> }
  ]].
 
 oauth_for_test() ->
- [?assertEqual(oauth_for(provider, Account, Providers), Expected)
+ [?assertEqual(Expected, oauth_for(email, Account, Providers))
  || {Account, Providers, Expected}
  <- [
  {<<"[email protected]">>, [{google, prov}], {ok, prov}},