content: {-# LANGUAGE QuasiQuotes #-}
  
  module Network.OAuth2.TokenRequestSpec where
  
  import Data.Aeson qualified as Aeson
  import Network.OAuth2.TokenRequest
  import Test.Hspec
  import URI.ByteString.QQ
  import Prelude hiding (error)
  
  spec :: Spec
  spec = do
    describe "parseJSON TokenResponseErrorCode" $ do
      it "invalid_request" $ do
        Aeson.eitherDecode "\"invalid_request\"" `shouldBe` Right InvalidRequest
      it "invalid_client" $ do
        Aeson.eitherDecode "\"invalid_client\"" `shouldBe` Right InvalidClient
      it "invalid_grant" $ do
        Aeson.eitherDecode "\"invalid_grant\"" `shouldBe` Right InvalidGrant
      it "unauthorized_client" $ do
        Aeson.eitherDecode "\"unauthorized_client\"" `shouldBe` Right UnauthorizedClient
      it "unsupported_grant_type" $ do
        Aeson.eitherDecode "\"unsupported_grant_type\"" `shouldBe` Right UnsupportedGrantType
      it "invalid_scope" $ do
        Aeson.eitherDecode "\"invalid_scope\"" `shouldBe` Right InvalidScope
      it "foo_code" $ do
        Aeson.eitherDecode "\"foo_code\"" `shouldBe` Right (UnknownErrorCode "foo_code")
  
    describe "parseJSON TokenResponseError" $ do
      it "parse error" $ do
        Aeson.eitherDecode "{\"error\": \"invalid_request\"}"
          `shouldBe` Right
            ( TokenResponseError
                { tokenResponseError = InvalidRequest
                , tokenResponseErrorDescription = Nothing
                , tokenResponseErrorUri = Nothing
                }
            )
      it "parse error_description" $ do
        Aeson.eitherDecode "{\"error\": \"invalid_request\", \"error_description\": \"token request error foo1\"}"
          `shouldBe` Right
            ( TokenResponseError
                { tokenResponseError = InvalidRequest
                , tokenResponseErrorDescription = Just "token request error foo1"
                , tokenResponseErrorUri = Nothing
                }
            )
      it "parse error_uri" $ do
        Aeson.eitherDecode "{\"error\": \"invalid_request\", \"error_uri\": \"https://example.com\"}"
          `shouldBe` Right
            ( TokenResponseError
                { tokenResponseError = InvalidRequest
                , tokenResponseErrorDescription = Nothing
                , tokenResponseErrorUri = Just [uri|https://example.com|]
                }
            )
  