From 1834e5c41e8eb7bccd391d54db9453ba2ecfa3b6 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 17 Sep 2024 18:24:41 +0200
Subject: [PATCH] Add a test for empty field argument list

... within parens.
---
 tests/Language/GraphQL/AST/ParserSpec.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/Language/GraphQL/AST/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs
index 80c2663..0e7c28a 100644
--- a/tests/Language/GraphQL/AST/ParserSpec.hs
+++ b/tests/Language/GraphQL/AST/ParserSpec.hs
@@ -75,7 +75,10 @@ spec = describe "Parser" $ do
                mutation auth{
                  test(username: """username""", password: """password""")
                }|]
- 
+
+       it "fails to parse an empty argument list in parens" $
+           parse document "" `shouldFailOn` "{ test() }"
+
        it "accepts any arguments" $ mapSize (const 10) $ property $ \xs ->
             let
                 query' :: Text