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