From b4a3c9811447ab1c7704e9667ff0103771b7587c Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 25 Jan 2020 16:37:17 +0100 Subject: Parse schema extensions --- tests/Language/GraphQL/AST/LexerSpec.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/Language/GraphQL/AST/LexerSpec.hs') diff --git a/tests/Language/GraphQL/AST/LexerSpec.hs b/tests/Language/GraphQL/AST/LexerSpec.hs index 9b5d6aa..4938b0f 100644 --- a/tests/Language/GraphQL/AST/LexerSpec.hs +++ b/tests/Language/GraphQL/AST/LexerSpec.hs @@ -8,7 +8,7 @@ import Data.Text (Text) import Data.Void (Void) import Language.GraphQL.AST.Lexer import Test.Hspec (Spec, context, describe, it) -import Test.Hspec.Megaparsec (shouldParse, shouldSucceedOn) +import Test.Hspec.Megaparsec (shouldParse, shouldFailOn, shouldSucceedOn) import Text.Megaparsec (ParseErrorBundle, parse) import Text.RawString.QQ (r) @@ -89,6 +89,8 @@ spec = describe "Lexer" $ do parse amp "" "&" `shouldParse` "&" it "lexes schema extensions" $ parse (extend "schema") "" `shouldSucceedOn` "extend schema" + it "fails if the given token doesn't match" $ + parse (extend "schema") "" `shouldFailOn` "extend shema" runBetween :: (Parser () -> Parser ()) -> Text -> Either (ParseErrorBundle Text Void) () runBetween parser = parse (parser $ pure ()) "" -- cgit v1.2.3