morpheus-graphql-tests 0.20.1 → 0.21.0

raw patch · 4 files changed

+20/−18 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

morpheus-graphql-tests.cabal +1/−1
src/Test/Morpheus/File.hs +4/−3
src/Test/Morpheus/Response.hs +8/−7
src/Test/Morpheus/Utils.hs +7/−7

morpheus-graphql-tests.cabal view

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           morpheus-graphql-tests-version:        0.20.1+version:        0.21.0 synopsis:       Morpheus GraphQL Test category:       web, graphql, test homepage:       https://morpheusgraphql.com

src/Test/Morpheus/File.hs view

@@ -18,8 +18,8 @@   ) where -import qualified Data.ByteString.Lazy.Char8 as L import Data.ByteString.Lazy.Char8 (ByteString)+import qualified Data.ByteString.Lazy.Char8 as L import Data.List import qualified Data.Text.IO as T import Relude hiding (ByteString)@@ -98,6 +98,7 @@   where     isAppFile FileUrl {fileName, isDir}       | not isDir-          && "app-" `isPrefixOf` fileName =-        Just $ takeWhile (/= '.') fileName+          && "app-"+          `isPrefixOf` fileName =+          Just $ takeWhile (/= '.') fileName       | otherwise = Nothing

src/Test/Morpheus/Response.hs view

@@ -12,8 +12,7 @@ where  import Data.Aeson-  ( (.=),-    FromJSON (..),+  ( FromJSON (..),     Result (..),     ToJSON (..),     Value (..),@@ -22,6 +21,7 @@     encode,     fromJSON,     object,+    (.=),   ) import Relude hiding (ByteString) import Test.Morpheus.File (FileUrl (fileName), readGQL, readJSON)@@ -71,11 +71,12 @@  mkQuery :: (FromJSON a) => Value -> Maybe Value -> IO a mkQuery query variables =-  runResult $ fromJSON $-    object-      [ "query" .= query,-        "variables" .= variables-      ]+  runResult $+    fromJSON $+      object+        [ "query" .= query,+          "variables" .= variables+        ]  fromEither :: ToJSON err => Either err a -> CaseAssertion err fromEither (Left err) = Expected err

src/Test/Morpheus/Utils.hs view

@@ -20,8 +20,8 @@   ( FromJSON (..),     eitherDecode,   )-import qualified Data.ByteString.Lazy.Char8 as L import Data.ByteString.Lazy.Char8 (ByteString)+import qualified Data.ByteString.Lazy.Char8 as L import Relude hiding (ByteString) import Test.Morpheus.File import Test.Tasty@@ -80,12 +80,12 @@  eqFailureMessage :: ByteString -> ByteString -> IO a3 eqFailureMessage expected actual =-  assertFailure-    $ L.unpack-    $ "expected: \n\n "-      <> expected-      <> " \n\n but got: \n\n "-      <> actual+  assertFailure $+    L.unpack $+      "expected: \n\n "+        <> expected+        <> " \n\n but got: \n\n "+        <> actual  getSchema :: (ReadSource a, Show err) => (a -> Either err b) -> FileUrl -> IO b getSchema f url =