diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-09-06 07:48:01 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-09-06 07:48:01 +0200 |
| commit | 1704022e744b276e0010f5ff147af1f109d30154 (patch) | |
| tree | ccf62411cdd814ee253b62b9d336438aeb5c4c22 /tests/Language | |
| parent | 63d4de485d3cd96c00480dfe2e5a6cb320d520c7 (diff) | |
| download | graphql-1704022e744b276e0010f5ff147af1f109d30154.tar.gz | |
Fix #12
Diffstat (limited to 'tests/Language')
| -rw-r--r-- | tests/Language/GraphQL/ParserSpec.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/Language/GraphQL/ParserSpec.hs b/tests/Language/GraphQL/ParserSpec.hs index c412c85..6425ea5 100644 --- a/tests/Language/GraphQL/ParserSpec.hs +++ b/tests/Language/GraphQL/ParserSpec.hs @@ -1,4 +1,5 @@ {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} module Language.GraphQL.ParserSpec ( spec ) where @@ -11,8 +12,19 @@ import Test.Hspec ( Spec , shouldSatisfy ) import Text.Megaparsec (parse) +import Text.RawString.QQ (r) spec :: Spec -spec = describe "Parser" $ +spec = describe "Parser" $ do it "accepts BOM header" $ parse document "" "\xfeff{foo}" `shouldSatisfy` isRight + + it "accepts block strings as argument" $ + parse document "" [r|{ + hello(text: """Argument""") + }|] `shouldSatisfy` isRight + + it "accepts strings as argument" $ + parse document "" [r|{ + hello(text: "Argument") + }|] `shouldSatisfy` isRight |