diff options
| author | Sam Nolan <samnolan555@gmail.com> | 2019-11-27 19:18:20 +1100 |
|---|---|---|
| committer | Sam Nolan <samnolan555@gmail.com> | 2019-11-28 19:09:26 +1100 |
| commit | def52ddc202dc43f75ce5aebee3e448b263bde12 (patch) | |
| tree | c56816a80183928c6815f8a7279f3799313ddf4e /tests/Language/GraphQL/AST/ParserSpec.hs | |
| parent | 34977849849cf72439ec6db61d641d70ee82dfb5 (diff) | |
| download | graphql-def52ddc202dc43f75ce5aebee3e448b263bde12.tar.gz | |
Fix strings not consuming spaces
Fixes #28
Diffstat (limited to 'tests/Language/GraphQL/AST/ParserSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/AST/ParserSpec.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/Language/GraphQL/AST/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs index 3e20e8f..420d3cf 100644 --- a/tests/Language/GraphQL/AST/ParserSpec.hs +++ b/tests/Language/GraphQL/AST/ParserSpec.hs @@ -30,3 +30,15 @@ spec = describe "Parser" $ do mutation auth($username: String!, $password: String!){ test }|] + + it "accepts two string arguments" $ + parse document "" `shouldSucceedOn` [r| + mutation auth{ + test(username: "username", password: "password") + }|] + + it "accepts two block string arguments" $ + parse document "" `shouldSucceedOn` [r| + mutation auth{ + test(username: """username""", password: """password""") + }|] |