diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/GraphQL/AST/LexerSpec.hs | 4 | ||||
| -rw-r--r-- | tests/Language/GraphQL/AST/ParserSpec.hs | 6 |
2 files changed, 8 insertions, 2 deletions
diff --git a/tests/Language/GraphQL/AST/LexerSpec.hs b/tests/Language/GraphQL/AST/LexerSpec.hs index b1c280f..a0acb9f 100644 --- a/tests/Language/GraphQL/AST/LexerSpec.hs +++ b/tests/Language/GraphQL/AST/LexerSpec.hs @@ -71,8 +71,8 @@ spec = describe "Lexer" $ do parse float "" "-1.123e4567" `shouldParse` (-1.123e4567) it "lexes punctuation" $ do - parse bang "" "!" `shouldParse` '!' - parse dollar "" "$" `shouldParse` '$' + parse bang "" "!" `shouldParse` "!" + parse dollar "" "$" `shouldParse` "$" runBetween parens `shouldSucceedOn` "()" parse spread "" "..." `shouldParse` "..." parse colon "" ":" `shouldParse` ":" diff --git a/tests/Language/GraphQL/AST/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs index 8473d73..3e20e8f 100644 --- a/tests/Language/GraphQL/AST/ParserSpec.hs +++ b/tests/Language/GraphQL/AST/ParserSpec.hs @@ -24,3 +24,9 @@ spec = describe "Parser" $ do parse document "" `shouldSucceedOn` [r|{ hello(text: "Argument") }|] + + it "accepts two required arguments" $ + parse document "" `shouldSucceedOn` [r| + mutation auth($username: String!, $password: String!){ + test + }|] |