morpheus-graphql-tests 0.27.2 → 0.27.3

raw patch · 3 files changed

+95/−4 lines, 3 files

Files

• morpheus-graphql-tests.cabal +2/−1
• src/Test/Morpheus/JSONDiff.hs +91/−0
• src/Test/Morpheus/Response.hs +2/−3

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           morpheus-graphql-tests-version:        0.27.2+version:        0.27.3 synopsis:       Morpheus GraphQL Test category:       web, graphql, test homepage:       https://morpheusgraphql.com@@ -25,6 +25,7 @@       Test.Morpheus   other-modules:       Test.Morpheus.File+      Test.Morpheus.JSONDiff       Test.Morpheus.Response       Test.Morpheus.Utils       Paths_morpheus_graphql_tests

@@ -0,0 +1,91 @@+{-# LANGUAGE CPP #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RankNTypes #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE TupleSections #-}+{-# LANGUAGE NoImplicitPrelude #-}++module Test.Morpheus.JSONDiff+  ( jsonEQ,+  )+where++import Data.Aeson (ToJSON (..), Value (..), encode)+import Data.ByteString.Lazy.Char8 (unpack)+import GHC.Show (Show (show))+import Relude hiding (ByteString, Show, show)+import Test.Tasty.HUnit (assertFailure)++#if MIN_VERSION_aeson(2,0,0)+import Data.Aeson.KeyMap (keys, lookup)+# else+import Data.HashMap.Lazy (keys, lookup)+#endif++data Diff+  = DiffNode [(String, Diff)]+  | DiffLeaf Value Value++instance Show Diff where+  show (DiffNode xs) = intercalate "\n" (map showField xs)+    where+      showField (k, v) = k <> ":\n  " <> indent (show v)+  show (DiffLeaf x y) =+    "should be:"+      <> showLeaf x+      <> "but it is:"+      <> showLeaf y++showLeaf :: ToJSON a => a -> [Char]+showLeaf x = " " <> unpack (encode x) <> "\n"++unescape :: String -> String+unescape = concatMap f+  where+    f '\"' = ""+    f x = x : ""++indent :: String -> String+indent = concatMap f+  where+    f '\n' = "\n  "+    f x = x : ""++diff :: (Value, Value) -> Maybe Diff+diff (Object beforeFields, Object afterFields) = diffNode $ map toPair ks+  where+    ks = uniq (keys (beforeFields <> afterFields))+    toPair key = (unescape (show key), (getField key beforeFields, getField key afterFields))+    getField key = fromMaybe Null . lookup key+diff (Array beforeElems, Array afterElems) = diffNode (zip ks vs)+  where+    ks = map show ([1 ..] :: [Int])+    vs = zipOptional (toList beforeElems) (toList afterElems)+diff (v1, v2)+  | v1 == v2 =+      Nothing+  | otherwise = Just (DiffLeaf v1 v2)++diffNode :: [(String, (Value, Value))] -> Maybe Diff+diffNode values+  | null entries = Nothing+  | otherwise = Just (DiffNode entries)+  where+    entries = mapMaybe (\(key, value) -> (key,) <$> diff value) values++uniq :: (Eq a) => [a] -> [a]+uniq [] = []+uniq (x : xs)+  | isJust (find (== x) xs) = uniq xs+  | otherwise = x : uniq xs++jsonEQ :: ToJSON a => a -> a -> IO ()+jsonEQ expected actual = case diff (toJSON expected, toJSON actual) of+  Just x -> assertFailure $ indent $ "\n" <> show x <> "\n"+  Nothing -> pure ()++zipOptional :: [Value] -> [Value] -> [(Value, Value)]+zipOptional [] [] = []+zipOptional (x : xs) [] = (x, Null) : zipOptional xs []+zipOptional [] (y : ys) = (Null, y) : zipOptional [] ys+zipOptional (x : xs) (y : ys) = (x, y) : zipOptional xs ys

@@ -18,14 +18,13 @@     Value (..),     decode,     eitherDecode,-    encode,     fromJSON,     object,     (.=),   ) import Relude hiding (ByteString) import Test.Morpheus.File (FileUrl (fileName), readGQL, readJSON)-import Test.Morpheus.Utils (requireEq)+import Test.Morpheus.JSONDiff import Test.Tasty   ( TestTree,   )@@ -57,7 +56,7 @@ assertResponse f url = testCase (fileName url) $ do   actual <- f url   expected <- getResponse url-  requireEq encode expected actual+  jsonEQ expected actual  runResult :: Result a -> IO a runResult (Success x) = pure x