ilyakooo0/servant-quickcheck
1
0
Fork 0
mirror of https://github.com/ilyakooo0/servant-quickcheck.git synced 2024-08-17 06:10:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add sanity check test in there to prove jsonEquality really is doing something different

Browse Source
This commit is contained in:
Erik Aker 2017-07-16 08:59:09 -07:00
parent 482656b35e
commit 3f6856103a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,12 +71,18 @@ serversEqualSpec = describe "serversEqual" $ do
context "when JSON is equal but looks a bit different as a ByteString" $ do
it "considers equal JSON apis equal regardless of ordering or whitespace" $ do
it "sanity check: different whitespace same JSON objects bodyEquality fails" $ do
Right (Failure _ err) <- withServantServer jsonApi jsonServer1 $ \burl1 ->
withServantServer jsonApi jsonServer2 $ \burl2 -> do
safeEvalExample $ serversEqual jsonApi burl1 burl2 args bodyEquality
show err `shouldContain` "Server equality failed"
it "jsonEquality considers equal JSON apis equal regardless of key ordering or whitespace" $ do
withServantServerAndContext jsonApi ctx jsonServer1 $ \burl1 ->
withServantServerAndContext jsonApi ctx jsonServer2 $ \burl2 ->
serversEqual jsonApi burl1 burl2 args jsonEquality
it "sees when JSON apis are not equal regardless of ordering or whitespace" $ do
it "sees when JSON apis are not equal because any value is different" $ do
Right (Failure _ err) <- withServantServer jsonApi jsonServer2 $ \burl1 ->
withServantServer jsonApi jsonServer3 $ \burl2 -> do
safeEvalExample $ serversEqual jsonApi burl1 burl2 args jsonEquality