Add gql quasi quoter
All checks were successful
Build / audit (push) Successful in 7s
Build / test (push) Successful in 7m8s
Build / doc (push) Successful in 6m58s

This commit is contained in:
2024-10-20 17:13:39 +02:00
parent ce5fa260f4
commit d280cd835f
4 changed files with 57 additions and 1 deletions

View File

@ -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