From 840e129c4496b4e8145480d2b3c3cb34f505702e Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 11 Jul 2020 06:34:10 +0200
Subject: Parse subscriptions

---
 tests/Language/GraphQL/AST/ParserSpec.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tests/Language/GraphQL/AST/ParserSpec.hs')

diff --git a/tests/Language/GraphQL/AST/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs
index 0d3a8de..e463996 100644
--- a/tests/Language/GraphQL/AST/ParserSpec.hs
+++ b/tests/Language/GraphQL/AST/ParserSpec.hs
@@ -159,3 +159,12 @@ spec = describe "Parser" $ do
                 queryField: String
             }
         |]
+
+    it "parses subscriptions" $
+        parse document "" `shouldSucceedOn` [r|
+            subscription NewMessages {
+              newMessage(roomId: 123) {
+                sender
+              }
+            }
+        |]
-- 
cgit v1.2.3