PersonTest.elm

module PersonTest exposing (..)

import Expect
import Fuzz exposing (int, string)
import Json.Decode exposing (decodeValue)
import Json.Encode as Json
import Person exposing (..)
import Test exposing (..)


suite : Test
suite =
    describe "the Person Module"
        [ fuzz3 int string string "personDecoder maps to a Person" <|
            \id firstName lastName ->
                let
                    json =
                        Json.object
                            [ ( "id", Json.int id )
                            , ( "first_name", Json.string firstName )
                            , ( "last_name", Json.string lastName )
                            ]
                in
                decodeValue personDecoder json
                    |> Expect.equal
                        (Ok { id = id, firstName = firstName, lastName = lastName })
        ]