diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-05 14:36:00 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-05 14:36:00 +0200 |
| commit | a6f9cec413c35abdcb0d04a5550334dd2fa7d472 (patch) | |
| tree | b16ce8fd038c02ec60664f60bba8d01b08d8d218 /tests/Language/GraphQL/ErrorSpec.hs | |
| parent | b5157e141e765c1313050cc66a2a323b67f3da79 (diff) | |
| download | graphql-a6f9cec413c35abdcb0d04a5550334dd2fa7d472.tar.gz | |
Handle errors using custom types
Fixes #32.
Diffstat (limited to 'tests/Language/GraphQL/ErrorSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/ErrorSpec.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/tests/Language/GraphQL/ErrorSpec.hs b/tests/Language/GraphQL/ErrorSpec.hs index 8bb39ed..179f3b0 100644 --- a/tests/Language/GraphQL/ErrorSpec.hs +++ b/tests/Language/GraphQL/ErrorSpec.hs @@ -4,6 +4,7 @@ module Language.GraphQL.ErrorSpec ) where import qualified Data.Aeson as Aeson +import qualified Data.Sequence as Seq import Language.GraphQL.Error import Test.Hspec ( Spec , describe @@ -14,11 +15,6 @@ import Test.Hspec ( Spec spec :: Spec spec = describe "singleError" $ it "constructs an error with the given message" $ - let expected = Aeson.object - [ - ("errors", Aeson.toJSON - [ Aeson.object [("message", "Message.")] - ] - ) - ] + let errors'' = Seq.singleton $ Error "Message." 0 0 + expected = Response Aeson.Null errors'' in singleError "Message." `shouldBe` expected |