Update stage 5's test

This commit is contained in:
Richard Feldman
2016-03-06 05:45:40 -08:00
parent 28ff51da62
commit 879788d86a

View File

@@ -16,13 +16,12 @@ all =
in in
assertEqual assertEqual
(decodeString responseDecoder emptyResponse) (decodeString responseDecoder emptyResponse)
(Ok []) ({- TODO: what goes here? -})
, test "they can decode responses with results in them" , test "they can decode responses with results in them"
<| let <| let
response = response =
"""{ "items": [ """{ "items": [
{ "id": 5, "full_name": "foo", "stargazers_count": 42 }, /* TODO: dummy JSON goes here */
{ "id": 3, "full_name": "bar", "stargazers_count": 77 }
] }""" ] }"""
in in
assertEqual assertEqual