Add gql quasi quoter
This commit is contained in:
@ -3,6 +3,7 @@
|
||||
obtain one at https://mozilla.org/MPL/2.0/. -}
|
||||
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
module Language.GraphQL.ClassSpec
|
||||
( spec
|
||||
@ -17,6 +18,7 @@ import Language.GraphQL.Class
|
||||
, ToGraphQL(..)
|
||||
, deriveFromGraphQL
|
||||
, deriveToGraphQL
|
||||
, gql
|
||||
)
|
||||
import Test.Hspec (Spec, describe, it, shouldBe)
|
||||
import qualified Data.HashMap.Strict as HashMap
|
||||
@ -159,3 +161,14 @@ spec = do
|
||||
let given = Type.Enum "TWO_FIELD_ENUM_2"
|
||||
expected = TWO_FIELD_ENUM_2
|
||||
in fromGraphQL given `shouldBe` Just expected
|
||||
|
||||
describe "gql" $
|
||||
it "replaces CRNL with NL" $
|
||||
let expected :: Text
|
||||
expected = "line1\nline2\nline3"
|
||||
actual = [gql|
|
||||
line1
|
||||
line2
|
||||
line3
|
||||
|]
|
||||
in actual `shouldBe` expected
|
||||
|
Reference in New Issue
Block a user