Fix unit test

Author: MarcialRosales

deps/oauth2_client/src/oauth2_client.erl

@@ -66,11 +66,7 @@ introspect_token(Token) ->
             Options = [],
             Response = httpc:request(post, {URL, Header, Type, Body}, HTTPOptions, Options),
             parse_access_token_response(Response);
-        {error, Message} -> 
-            #unsuccessful_access_token_response{
-              error = 500,
-              error_description = binary_to_list(Message)
-            }
+        {error, _} = Error -> Error            
     end.    
 
 build_introspect_request_parameters(Token, #introspect_token_request{
@@ -122,7 +118,7 @@ build_introspection_request() ->
                             _ -> false
                         end
                 end
-            end, get_env(oauth_providers))
+            end, get_env(oauth_providers, #{}))
         end,
     case maps:size(Providers) of 
         0 -> {error, not_found_introspection_endpoint};

deps/rabbitmq_auth_backend_oauth2/src/rabbit_auth_backend_oauth2.erl

@@ -154,7 +154,7 @@ authenticate(_, AuthProps0) ->
     Token0     = token_from_context(AuthProps),
     TokenResult = case uaa_jwt_jwt:is_jwt_token(Token0) of 
         true -> {ok, Token0};
-        false -> oauth_client:introspect_token(Token0)
+        false -> oauth2_client:introspect_token(Token0)
     end,
     case TokenResult of 
         {ok, Token} ->
@@ -176,7 +176,7 @@ authenticate(_, AuthProps0) ->
                             end
                     end
             end;
-        _ -> TokenResult
+        {error, Error} -> {refused, "Unable to introspect token: ~p", [Error]}
     end.
 
 -spec with_decoded_token(Token, Fun) -> Result

deps/rabbitmq_auth_backend_oauth2/src/uaa_jwt_jwt.erl

@@ -43,8 +43,9 @@ get_aud(Token) ->
         {error, {invalid_token, Type, Err, Stacktrace}}
     end.
 
-is_jwt_token(Token) ->
+is_jwt_token(Token) when is_binary(Token) ->
     case binary:split(Token, <<".">>, [global]) of 
         [_, _, _] -> true;
         _ -> false
-    end.
+    end;
+is_jwt_token(_Token) -> true.