89 lines
2.5 KiB
Haskell
89 lines
2.5 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
module Test.DirectiveSpec
|
|
( spec
|
|
) where
|
|
|
|
import Data.Aeson (Value, object, (.=))
|
|
import Data.HashMap.Strict (HashMap)
|
|
import qualified Data.HashMap.Strict as HashMap
|
|
import Data.List.NonEmpty (NonEmpty(..))
|
|
import Data.Text (Text)
|
|
import Language.GraphQL
|
|
import qualified Language.GraphQL.Schema as Schema
|
|
import Test.Hspec (Spec, describe, it, shouldBe)
|
|
import Text.RawString.QQ (r)
|
|
|
|
experimentalResolver :: HashMap Text (NonEmpty (Schema.Resolver IO))
|
|
experimentalResolver = HashMap.singleton "Query"
|
|
$ Schema.scalar "experimentalField" (pure (5 :: Int)) :| []
|
|
|
|
emptyObject :: Value
|
|
emptyObject = object
|
|
[ "data" .= object []
|
|
]
|
|
|
|
spec :: Spec
|
|
spec =
|
|
describe "Directive executor" $ do
|
|
it "should be able to @skip fields" $ do
|
|
let query = [r|
|
|
{
|
|
experimentalField @skip(if: true)
|
|
}
|
|
|]
|
|
|
|
actual <- graphql experimentalResolver query
|
|
actual `shouldBe` emptyObject
|
|
|
|
it "should not skip fields if @skip is false" $ do
|
|
let query = [r|
|
|
{
|
|
experimentalField @skip(if: false)
|
|
}
|
|
|]
|
|
expected = object
|
|
[ "data" .= object
|
|
[ "experimentalField" .= (5 :: Int)
|
|
]
|
|
]
|
|
|
|
actual <- graphql experimentalResolver query
|
|
actual `shouldBe` expected
|
|
|
|
it "should skip fields if @include is false" $ do
|
|
let query = [r|
|
|
{
|
|
experimentalField @include(if: false)
|
|
}
|
|
|]
|
|
|
|
actual <- graphql experimentalResolver query
|
|
actual `shouldBe` emptyObject
|
|
|
|
it "should be able to @skip a fragment spread" $ do
|
|
let query = [r|
|
|
{
|
|
...experimentalFragment @skip(if: true)
|
|
}
|
|
|
|
fragment experimentalFragment on ExperimentalType {
|
|
experimentalField
|
|
}
|
|
|]
|
|
|
|
actual <- graphql experimentalResolver query
|
|
actual `shouldBe` emptyObject
|
|
|
|
it "should be able to @skip an inline fragment" $ do
|
|
let query = [r|
|
|
{
|
|
... on ExperimentalType @skip(if: true) {
|
|
experimentalField
|
|
}
|
|
}
|
|
|]
|
|
|
|
actual <- graphql experimentalResolver query
|
|
actual `shouldBe` emptyObject
|