module PhotoGrooveTest exposing (..)

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


suite : Test
suite =
    describe "photoDecoder"
        [ fuzz2 Fuzz.string Fuzz.int "title always defaults to '(untitled)'" <|
            \url size ->
                [ ( "url", Encode.string url )
                , ( "size", Encode.int size )
                ]
                    |> Encode.object
                    |> J.decodeValue Testee.photoDecoder
                    |> Result.map .title
                    |> Expect.equal (Ok "(untitled)")
        ]