module PhotoGrooveTest exposing (..)

import Expect exposing (Expectation)
import Fuzz exposing (Fuzzer, int, list, string)
import Json.Decode as J
import PhotoGroove as Testee
import Test exposing (..)


suite : Test
suite =
    describe "photoDecoder"
        [ test "title defaults to '(untitled)'" <|
            \_ ->
                """{"url": "example.com", "size": 5}"""
                    |> J.decodeString Testee.photoDecoder
                    |> Result.map (\p -> p.title)
                    |> Expect.equal (Ok "(untitled)")
        ]