mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-11-27 21:29:55 +03:00
Fix test cases.
This commit is contained in:
Dillon Kearns
parent
4092544f62
commit
e2e9625825
@ -117,76 +117,79 @@ all =
|
||||
(get "NEXT-REQUEST")
|
||||
(JsonBody Encode.null)
|
||||
|> expectSuccess []
|
||||
, test "andThen chain avoids repeat requests" <|
|
||||
\() ->
|
||||
let
|
||||
pokemonDetailRequest : DataSource ()
|
||||
pokemonDetailRequest =
|
||||
DataSource.Http.get
|
||||
"https://pokeapi.co/api/v2/pokemon/"
|
||||
(JD.list
|
||||
(JD.field "url" JD.string
|
||||
|> JD.map
|
||||
(\url ->
|
||||
DataSource.Http.get url
|
||||
(JD.field "image" JD.string)
|
||||
)
|
||||
)
|
||||
)
|
||||
|> DataSource.resolve
|
||||
|> DataSource.map (\_ -> ())
|
||||
in
|
||||
startSimple
|
||||
[ "elm-pages" ]
|
||||
pokemonDetailRequest
|
||||
|> simulateMultipleHttp
|
||||
[ ( get "https://pokeapi.co/api/v2/pokemon/"
|
||||
, jsonBody """[
|
||||
{"url": "url1"},
|
||||
{"url": "url2"},
|
||||
{"url": "url3"},
|
||||
{"url": "url4"},
|
||||
{"url": "url5"},
|
||||
{"url": "url6"},
|
||||
{"url": "url7"},
|
||||
{"url": "url8"},
|
||||
{"url": "url9"},
|
||||
{"url": "url10"}
|
||||
]"""
|
||||
)
|
||||
, ( get "url1"
|
||||
, jsonBody """{"image": "image1.jpg"}"""
|
||||
)
|
||||
, ( get "url2"
|
||||
, jsonBody """{"image": "image2.jpg"}"""
|
||||
)
|
||||
, ( get "url3"
|
||||
, jsonBody """{"image": "image3.jpg"}"""
|
||||
)
|
||||
, ( get "url4"
|
||||
, jsonBody """{"image": "image4.jpg"}"""
|
||||
)
|
||||
, ( get "url5"
|
||||
, jsonBody """{"image": "image5.jpg"}"""
|
||||
)
|
||||
, ( get "url6"
|
||||
, jsonBody """{"image": "image6.jpg"}"""
|
||||
)
|
||||
, ( get "url7"
|
||||
, jsonBody """{"image": "image7.jpg"}"""
|
||||
)
|
||||
, ( get "url8"
|
||||
, jsonBody """{"image": "image8.jpg"}"""
|
||||
)
|
||||
, ( get "url9"
|
||||
, jsonBody """{"image": "image9.jpg"}"""
|
||||
)
|
||||
, ( get "url10"
|
||||
, jsonBody """{"image": "image10.jpg"}"""
|
||||
)
|
||||
]
|
||||
|> expectSuccess []
|
||||
|
||||
--, test "andThen chain avoids repeat requests" <|
|
||||
-- TODO is this test case still relevant? Need to think about the new desired functionality with caching HTTP requests given that
|
||||
-- DataSource's can perform non-deterministic effects now.
|
||||
-- \() ->
|
||||
-- let
|
||||
-- pokemonDetailRequest : DataSource ()
|
||||
-- pokemonDetailRequest =
|
||||
-- DataSource.Http.get
|
||||
-- "https://pokeapi.co/api/v2/pokemon/"
|
||||
-- (JD.list
|
||||
-- (JD.field "url" JD.string
|
||||
-- |> JD.map
|
||||
-- (\url ->
|
||||
-- DataSource.Http.get url
|
||||
-- (JD.field "image" JD.string)
|
||||
-- )
|
||||
-- )
|
||||
-- )
|
||||
-- |> DataSource.resolve
|
||||
-- |> DataSource.map (\_ -> ())
|
||||
-- in
|
||||
-- startSimple
|
||||
-- [ "elm-pages" ]
|
||||
-- pokemonDetailRequest
|
||||
-- |> simulateMultipleHttp
|
||||
-- [ ( get "https://pokeapi.co/api/v2/pokemon/"
|
||||
-- , jsonBody """[
|
||||
-- {"url": "url1"},
|
||||
-- {"url": "url2"},
|
||||
-- {"url": "url3"},
|
||||
-- {"url": "url4"},
|
||||
-- {"url": "url5"},
|
||||
-- {"url": "url6"},
|
||||
-- {"url": "url7"},
|
||||
-- {"url": "url8"},
|
||||
-- {"url": "url9"},
|
||||
-- {"url": "url10"}
|
||||
-- ]"""
|
||||
-- )
|
||||
-- , ( get "url1"
|
||||
-- , jsonBody """{"image": "image1.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url2"
|
||||
-- , jsonBody """{"image": "image2.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url3"
|
||||
-- , jsonBody """{"image": "image3.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url4"
|
||||
-- , jsonBody """{"image": "image4.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url5"
|
||||
-- , jsonBody """{"image": "image5.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url6"
|
||||
-- , jsonBody """{"image": "image6.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url7"
|
||||
-- , jsonBody """{"image": "image7.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url8"
|
||||
-- , jsonBody """{"image": "image8.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url9"
|
||||
-- , jsonBody """{"image": "image9.jpg"}"""
|
||||
-- )
|
||||
-- , ( get "url10"
|
||||
-- , jsonBody """{"image": "image10.jpg"}"""
|
||||
-- )
|
||||
-- ]
|
||||
-- |> expectSuccess []
|
||||
--
|
||||
--, test "port is sent out once all requests are finished" <|
|
||||
-- \() ->
|
||||
-- start
|
||||
@ -510,7 +513,7 @@ config apiRoutes pages =
|
||||
, basePath = []
|
||||
, onActionData = \() -> Nothing
|
||||
, data =
|
||||
\(Route pageRoute) ->
|
||||
\_ (Route pageRoute) ->
|
||||
let
|
||||
thing : Maybe (DataSource a)
|
||||
thing =
|
||||
@ -566,7 +569,7 @@ config apiRoutes pages =
|
||||
, notFoundRoute = Route "not-found"
|
||||
, internalError = \_ -> ()
|
||||
, errorPageToData = \_ -> ()
|
||||
, action = \_ -> DataSource.fail "No action."
|
||||
, action = \_ _ -> DataSource.fail "No action."
|
||||
, encodeAction = \_ -> Bytes.Encode.signedInt8 0
|
||||
}
|
||||
|
||||
|
||||
@ -1,148 +0,0 @@
|
||||
module StaticHttpUnitTests exposing (all)
|
||||
|
||||
import DataSource
|
||||
import DataSource.Http
|
||||
import Dict
|
||||
import Expect
|
||||
import Json.Decode as Decode
|
||||
import Json.Encode as Encode
|
||||
import Pages.StaticHttp.Request as Request
|
||||
import Pages.StaticHttpRequest as StaticHttpRequest
|
||||
import RequestsAndPending
|
||||
import Test exposing (Test, describe, test)
|
||||
|
||||
|
||||
getWithoutSecrets : String -> Decode.Decoder a -> DataSource.DataSource a
|
||||
getWithoutSecrets url =
|
||||
DataSource.Http.get url
|
||||
|
||||
|
||||
requestsDict : List ( Request.Request, b ) -> Dict.Dict String (Maybe b)
|
||||
requestsDict requestMap =
|
||||
requestMap
|
||||
|> List.map
|
||||
(\( request, response ) ->
|
||||
( request |> Request.hash
|
||||
, Just response
|
||||
)
|
||||
)
|
||||
|> Dict.fromList
|
||||
|
||||
|
||||
get : String -> Request.Request
|
||||
get url =
|
||||
{ method = "GET"
|
||||
, url = url
|
||||
|
||||
-- TODO try to abstract away hardcoding of elm-pages-internal in test code
|
||||
, headers = [ ( "elm-pages-internal", "ExpectJson" ) ]
|
||||
, body = DataSource.Http.emptyBody
|
||||
, useCache = False
|
||||
}
|
||||
|
||||
|
||||
all : Test
|
||||
all =
|
||||
describe "Static Http Requests unit tests"
|
||||
[ test "andThen" <|
|
||||
\() ->
|
||||
DataSource.Http.get "first" (Decode.succeed "NEXT")
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
getWithoutSecrets "NEXT" (Decode.succeed ())
|
||||
)
|
||||
|> (\request ->
|
||||
StaticHttpRequest.resolveUrls
|
||||
request
|
||||
(requestsDict
|
||||
[ ( get "first", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
, ( get "NEXT", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
]
|
||||
)
|
||||
|> Expect.equal [ getReq "first", getReq "NEXT" ]
|
||||
)
|
||||
, test "andThen staring with done" <|
|
||||
\() ->
|
||||
DataSource.succeed ()
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
getWithoutSecrets "NEXT" (Decode.succeed ())
|
||||
)
|
||||
|> (\request ->
|
||||
StaticHttpRequest.resolveUrls
|
||||
request
|
||||
(requestsDict
|
||||
[ ( get "NEXT", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
]
|
||||
)
|
||||
|> Expect.equal [ getReq "NEXT" ]
|
||||
)
|
||||
, test "map" <|
|
||||
\() ->
|
||||
getWithoutSecrets "first" (Decode.succeed "NEXT")
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
-- StaticHttp.get continueUrl (Decode.succeed ())
|
||||
getWithoutSecrets "NEXT" (Decode.succeed ())
|
||||
)
|
||||
|> DataSource.map (\_ -> ())
|
||||
|> (\request ->
|
||||
StaticHttpRequest.resolveUrls
|
||||
request
|
||||
(requestsDict
|
||||
[ ( get "first", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
, ( get "NEXT", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
]
|
||||
)
|
||||
|> Expect.equal [ getReq "first", getReq "NEXT" ]
|
||||
)
|
||||
, test "andThen chain with 1 response available and 1 pending" <|
|
||||
\() ->
|
||||
getWithoutSecrets "first" (Decode.succeed "NEXT")
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
getWithoutSecrets "NEXT" (Decode.succeed ())
|
||||
)
|
||||
|> (\request ->
|
||||
StaticHttpRequest.resolveUrls
|
||||
request
|
||||
(requestsDict
|
||||
[ ( get "first", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody Encode.null) )
|
||||
]
|
||||
)
|
||||
|> Expect.equal [ getReq "first", getReq "NEXT" ]
|
||||
)
|
||||
, test "andThen chain with 1 response available and 2 pending" <|
|
||||
\() ->
|
||||
getWithoutSecrets "first" Decode.int
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
getWithoutSecrets "NEXT" Decode.string
|
||||
|> DataSource.andThen
|
||||
(\_ ->
|
||||
getWithoutSecrets "LAST"
|
||||
Decode.string
|
||||
)
|
||||
)
|
||||
|> (\request ->
|
||||
StaticHttpRequest.resolveUrls
|
||||
request
|
||||
(requestsDict
|
||||
[ ( get "first", RequestsAndPending.Response Nothing (RequestsAndPending.JsonBody (Encode.int 1)) )
|
||||
]
|
||||
)
|
||||
|> Expect.equal [ getReq "first", getReq "NEXT" ]
|
||||
)
|
||||
]
|
||||
|
||||
|
||||
getReq : String -> Request.Request
|
||||
getReq url =
|
||||
{ url = url
|
||||
, method = "GET"
|
||||
|
||||
-- TODO try to abstract away hardcoding of elm-pages-internal in test code
|
||||
, headers = [ ( "elm-pages-internal", "ExpectJson" ) ]
|
||||
, body = DataSource.Http.emptyBody
|
||||
, useCache = False
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user