From 37254c8c9532794ed41570ef8c646c41e7044f2c Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 11 Oct 2019 23:28:55 +0200
Subject: Inline fragments without type

Fixes #11.
---
 tests/Test/FragmentSpec.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'tests/Test/FragmentSpec.hs')

diff --git a/tests/Test/FragmentSpec.hs b/tests/Test/FragmentSpec.hs
index 189306d..337db7e 100644
--- a/tests/Test/FragmentSpec.hs
+++ b/tests/Test/FragmentSpec.hs
@@ -59,3 +59,25 @@ spec = describe "Inline fragment executor" $ do
                     ]
                 ]
          in actual `shouldBe` expected
+
+    it "embeds inline fragments without type" $ do
+        let query = [r|{
+          garment {
+            circumference
+            ... {
+              size
+            }
+          }
+        }|]
+            resolvers = Schema.object "garment" $ return [circumference,  size]
+
+        actual <- graphql (resolvers :| []) query
+        let expected = object
+                [ "data" .= object
+                    [ "garment" .= object
+                        [ "circumference" .= (60 :: Int)
+                        , "size" .= ("L" :: Text)
+                        ]
+                    ]
+                ]
+         in actual `shouldBe` expected
-- 
cgit v1.2.3