ilyakooo0/servant-quickcheck
1
0
Fork 0
mirror of https://github.com/ilyakooo0/servant-quickcheck.git synced 2024-09-11 18:37:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Utilize new FailedWith constructor to fix json equality tests

Browse Source
This commit is contained in:
Erik Aker 2017-10-15 20:31:52 -07:00
parent 3f6856103a
commit 6c163dc981
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/Servant/QuickCheck/InternalSpec.hs
View File

@ -72,9 +72,9 @@ serversEqualSpec = describe "serversEqual" $ do
context "when JSON is equal but looks a bit different as a ByteString" $ do context "when JSON is equal but looks a bit different as a ByteString" $ do
it "sanity check: different whitespace same JSON objects bodyEquality fails" $ do it "sanity check: different whitespace same JSON objects bodyEquality fails" $ do
Right (Failure _ err) <- withServantServer jsonApi jsonServer1 $ \burl1 -> FailedWith err <- withServantServer jsonApi jsonServer1 $ \burl1 ->
withServantServer jsonApi jsonServer2 $ \burl2 -> do withServantServer jsonApi jsonServer2 $ \burl2 -> do
safeEvalExample $ serversEqual jsonApi burl1 burl2 args bodyEquality evalExample $ serversEqual jsonApi burl1 burl2 args bodyEquality
show err `shouldContain` "Server equality failed" show err `shouldContain` "Server equality failed"
it "jsonEquality considers equal JSON apis equal regardless of key ordering or whitespace" $ do it "jsonEquality considers equal JSON apis equal regardless of key ordering or whitespace" $ do
@ -83,16 +83,16 @@ serversEqualSpec = describe "serversEqual" $ do
serversEqual jsonApi burl1 burl2 args jsonEquality serversEqual jsonApi burl1 burl2 args jsonEquality
it "sees when JSON apis are not equal because any value is different" $ do it "sees when JSON apis are not equal because any value is different" $ do
Right (Failure _ err) <- withServantServer jsonApi jsonServer2 $ \burl1 -> FailedWith err <- withServantServer jsonApi jsonServer2 $ \burl1 ->
withServantServer jsonApi jsonServer3 $ \burl2 -> do withServantServer jsonApi jsonServer3 $ \burl2 -> do
safeEvalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality evalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
show err `shouldContain` "Server equality failed" show err `shouldContain` "Server equality failed"
show err `shouldContain` "Path: /jsonComparison" show err `shouldContain` "Path: /jsonComparison"
it "sees when JSON apis are not equal due to different keys but same values" $ do it "sees when JSON apis are not equal due to different keys but same values" $ do
Right (Failure _ err) <- withServantServer jsonApi jsonServer2 $ \burl1 -> FailedWith err <- withServantServer jsonApi jsonServer2 $ \burl1 ->
withServantServer jsonApi jsonServer4 $ \burl2 -> do withServantServer jsonApi jsonServer4 $ \burl2 -> do
safeEvalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality evalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality
show err `shouldContain` "Server equality failed" show err `shouldContain` "Server equality failed"
show err `shouldContain` "Path: /jsonComparison" show err `shouldContain` "Path: /jsonComparison"