71 lines
2.7 KiB
Elm
71 lines
2.7 KiB
Elm
module Tests exposing (..)
|
|
|
|
import ElmHub exposing (responseDecoder)
|
|
import Expect exposing (Expectation)
|
|
import Fuzz exposing (..)
|
|
import Json.Decode exposing (Value, decodeString)
|
|
import String
|
|
import Test exposing (..)
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "GitHub Response Decoder"
|
|
[ test "it results in an Err for invalid JSON" <|
|
|
\() ->
|
|
let
|
|
json =
|
|
"""{ "pizza": [] }"""
|
|
|
|
isErrorResult result =
|
|
-- TODO return True if the given Result is an Err of some sort,
|
|
-- and False if it is an Ok of some sort.
|
|
--
|
|
-- Result docs: http://package.elm-lang.org/packages/elm-lang/core/latest/Result
|
|
False
|
|
in
|
|
json
|
|
|> decodeString responseDecoder
|
|
|> isErrorResult
|
|
|> Expect.true "Expected decoding an invalid response to return an Err."
|
|
, test "it successfully decodes a valid response" <|
|
|
\() ->
|
|
"""{ "items": [
|
|
/* TODO: put JSON here! */
|
|
] }"""
|
|
|> decodeString responseDecoder
|
|
|> Expect.equal
|
|
(Ok
|
|
[ { id = 5, name = "foo", stars = 42 }
|
|
, { id = 3, name = "bar", stars = 77 }
|
|
]
|
|
)
|
|
, test "it decodes one SearchResult for each 'item' in the JSON" <|
|
|
\() ->
|
|
let
|
|
-- TODO convert this to a fuzz test that generates a random
|
|
-- list of ids instead of this hardcoded list of three ids.
|
|
--
|
|
-- fuzz test docs: http://package.elm-lang.org/packages/elm-community/elm-test/latest/Test#fuzz
|
|
-- Fuzzer docs: http://package.elm-lang.org/packages/project-fuzzball/test/6.0.0
|
|
ids =
|
|
[ 12, 5, 76 ]
|
|
|
|
jsonFromId id =
|
|
"""{"id": """ ++ toString id ++ """, "full_name": "foo", "stargazers_count": 42}"""
|
|
|
|
jsonItems =
|
|
String.join ", " (List.map jsonFromId ids)
|
|
|
|
json =
|
|
"""{ "items": [""" ++ jsonItems ++ """] }"""
|
|
in
|
|
case decodeString responseDecoder json of
|
|
Ok results ->
|
|
List.length results
|
|
|> Expect.equal (List.length ids)
|
|
|
|
Err err ->
|
|
Expect.fail ("JSON decoding failed unexpectedly: " ++ err)
|
|
]
|