eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix servant-foreign tests (now passing)

Browse source
This commit is contained in:
aaron levin 2015-12-22 23:57:34 +01:00
parent 61fe932d0a
commit d7a719d3d2
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
servant-foreign/test/Servant/ForeignSpec.hs
View file

@ -62,6 +62,7 @@ listFromAPISpec = describe "listFromAPI" $ do
let [getReq, postReq, putReq, deleteReq] = testApi let [getReq, postReq, putReq, deleteReq] = testApi
-- test if two requests are equal for testing purposes
let reqEq req1 req2 = do let reqEq req1 req2 = do
_reqUrl req1 `shouldBe` _reqUrl req2 _reqUrl req1 `shouldBe` _reqUrl req2
_reqMethod req1 `shouldBe` _reqMethod req2 _reqMethod req1 `shouldBe` _reqMethod req2
@ -72,6 +73,8 @@ listFromAPISpec = describe "listFromAPI" $ do
let h = case (_reqHeaders req1, _reqHeaders req2) of let h = case (_reqHeaders req1, _reqHeaders req2) of
([], []) -> True ([], []) -> True
([HeaderArg a], [HeaderArg b]) -> a == b ([HeaderArg a], [HeaderArg b]) -> a == b
([ReplaceHeaderArg a1 b1], [ReplaceHeaderArg a2 b2]) -> a1 == a2 && b1 == b2
([HeaderArgGen a1 f1], [HeaderArgGen a2 f2]) -> a1 == a2 && f1 "" == f2 ""
_ -> False _ -> False
h `shouldBe` True h `shouldBe` True
@ -93,7 +96,7 @@ listFromAPISpec = describe "listFromAPI" $ do
it "collects all info for post request" $ do it "collects all info for post request" $ do
let req1 = getReq let req1 = postReq
req2 = defReq req2 = defReq
{ _reqUrl = Url { _reqUrl = Url
[ Segment $ Static "test" ] [ Segment $ Static "test" ]
@ -108,7 +111,7 @@ listFromAPISpec = describe "listFromAPI" $ do
reqEq req1 req2 reqEq req1 req2
it "collects all info for put request" $ do it "collects all info for put request" $ do
let req1 = getReq let req1 = putReq
req2 = defReq req2 = defReq
{ _reqUrl = Url { _reqUrl = Url
[ Segment $ Static "test" ] [ Segment $ Static "test" ]
@ -124,7 +127,7 @@ listFromAPISpec = describe "listFromAPI" $ do
reqEq req1 req2 reqEq req1 req2
it "collects all info for delete request" $ do it "collects all info for delete request" $ do
let req1 = getReq let req1 = deleteReq
req2 = defReq req2 = defReq
{ _reqUrl = Url { _reqUrl = Url
[ Segment $ Static "test" [ Segment $ Static "test"