diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-01-17 12:22:29 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-01-17 12:29:06 +0100 |
| commit | 3ef27f9d112fcd035a8d351b6e246768355854ae (patch) | |
| tree | 7def84ea1bd1a64696c1daf7c3590d5e49c76eb9 /tests | |
| parent | ba710a3c968f954d69d3412d91b06debb4fc5a6d (diff) | |
| download | graphql-3ef27f9d112fcd035a8d351b6e246768355854ae.tar.gz | |
Add "extend symbol" lexer to parse extensions
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/GraphQL/AST/LexerSpec.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/Language/GraphQL/AST/LexerSpec.hs b/tests/Language/GraphQL/AST/LexerSpec.hs index 402ed02..9b5d6aa 100644 --- a/tests/Language/GraphQL/AST/LexerSpec.hs +++ b/tests/Language/GraphQL/AST/LexerSpec.hs @@ -87,6 +87,8 @@ spec = describe "Lexer" $ do parse blockString "" [r|""""""|] `shouldParse` "" it "lexes ampersand" $ parse amp "" "&" `shouldParse` "&" + it "lexes schema extensions" $ + parse (extend "schema") "" `shouldSucceedOn` "extend schema" runBetween :: (Parser () -> Parser ()) -> Text -> Either (ParseErrorBundle Text Void) () runBetween parser = parse (parser $ pure ()) "" |