jakalx/photo-groove
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

test: Inline mkPhoto helper function

Browse source
This commit is contained in:
Alexander Kobjolke 2023-12-17 12:17:18 +01:00
parent 5e735e1b62
commit 796b1697b8
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tests/PhotoGrooveTest.elm
View file

@ -13,14 +13,11 @@ suite =
describe "photoDecoder" describe "photoDecoder"
[ fuzz2 Fuzz.string Fuzz.int "title always defaults to '(untitled)'" <| [ fuzz2 Fuzz.string Fuzz.int "title always defaults to '(untitled)'" <|
\url size -> \url size ->
mkPhoto url size [ ( "url", Encode.string url )
, ( "size", Encode.int size )
]
|> Encode.object
|> J.decodeValue Testee.photoDecoder |> J.decodeValue Testee.photoDecoder
|> Result.map .title |> Result.map .title
|> Expect.equal (Ok "(untitled)") |> Expect.equal (Ok "(untitled)")
] ]
mkPhoto : String -> Int -> Value
mkPhoto url size =
[ ( "url", Encode.string url ), ( "size", Encode.int size ) ]
|> Encode.object