From b27da54bf4d4c75447c1cad4329c2b28ae2c6c82 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Thu, 4 Feb 2021 08:12:12 +0100
Subject: Provide custom Show instances for AST values

---
 tests/Language/GraphQL/AST/DocumentSpec.hs | 20 ++++++++++++++++++++
 tests/Language/GraphQL/ValidateSpec.hs     |  2 +-
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 tests/Language/GraphQL/AST/DocumentSpec.hs

(limited to 'tests')

diff --git a/tests/Language/GraphQL/AST/DocumentSpec.hs b/tests/Language/GraphQL/AST/DocumentSpec.hs
new file mode 100644
index 0000000..ca13e17
--- /dev/null
+++ b/tests/Language/GraphQL/AST/DocumentSpec.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Language.GraphQL.AST.DocumentSpec
+    ( spec
+    ) where
+
+import Language.GraphQL.AST.Document
+import Test.Hspec (Spec, describe, it, shouldBe)
+
+spec :: Spec
+spec = do
+    describe "Document" $ do
+        it "shows objects" $
+            let zero = Location 0 0
+                object = ConstObject
+                    [ ObjectField "field1" (Node (ConstFloat 1.2) zero) zero
+                    , ObjectField "field2" (Node ConstNull zero) zero
+                    ]
+                expected = "{ field1: 1.2, field2: null }"
+             in show object `shouldBe` expected
diff --git a/tests/Language/GraphQL/ValidateSpec.hs b/tests/Language/GraphQL/ValidateSpec.hs
index 24b0ad0..b47149d 100644
--- a/tests/Language/GraphQL/ValidateSpec.hs
+++ b/tests/Language/GraphQL/ValidateSpec.hs
@@ -851,7 +851,7 @@ spec =
             |]
                 expected = Error
                     { message =
-                        "Value ConstInt 3 cannot be coerced to type \"Boolean\"."
+                        "Value 3 cannot be coerced to type \"Boolean\"."
                     , locations = [AST.Location 4 48]
                     }
              in validate queryString `shouldBe` [expected]
-- 
cgit v1.2.3