onasty @ 9de58ad

module UnitTests.Data.Credentiala exposing (suite)

import Data.Credentials
import Expect
import Json.Decode as Json
import Test exposing (Test, describe, test)


suite : Test
suite =
    describe "Data.Credentials"
        [ test "decode credentials" <|
            \_ ->
                """
                {
                    "access_token": "access.token.value",
                    "refresh_token": "refresh-token-value"
                }
                """
                    |> Json.decodeString Data.Credentials.decode
                    |> Expect.ok
        ]