diff options
Diffstat (limited to 'tests/Test')
| -rw-r--r-- | tests/Test/DirectiveSpec.hs | 84 | ||||
| -rw-r--r-- | tests/Test/FragmentSpec.hs | 237 |
2 files changed, 216 insertions, 105 deletions
diff --git a/tests/Test/DirectiveSpec.hs b/tests/Test/DirectiveSpec.hs new file mode 100644 index 0000000..2224bc5 --- /dev/null +++ b/tests/Test/DirectiveSpec.hs @@ -0,0 +1,84 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} +module Test.DirectiveSpec + ( spec + ) where + +import Data.Aeson (Value, object, (.=)) +import Data.List.NonEmpty (NonEmpty(..)) +import Language.GraphQL +import qualified Language.GraphQL.Schema as Schema +import Test.Hspec (Spec, describe, it, shouldBe) +import Text.RawString.QQ (r) + +experimentalResolver :: Schema.Resolver IO +experimentalResolver = 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 diff --git a/tests/Test/FragmentSpec.hs b/tests/Test/FragmentSpec.hs index 69f1344..de10d63 100644 --- a/tests/Test/FragmentSpec.hs +++ b/tests/Test/FragmentSpec.hs @@ -48,117 +48,144 @@ hasErrors (Object object') = HashMap.member "errors" object' hasErrors _ = True spec :: Spec -spec = describe "Inline fragment executor" $ do - it "chooses the first selection if the type matches" $ do - actual <- graphql (garment "Hat" :| []) inlineQuery - let expected = object - [ "data" .= object - [ "garment" .= object - [ "circumference" .= (60 :: Int) +spec = do + describe "Inline fragment executor" $ do + it "chooses the first selection if the type matches" $ do + actual <- graphql (garment "Hat" :| []) inlineQuery + let expected = object + [ "data" .= object + [ "garment" .= object + [ "circumference" .= (60 :: Int) + ] + ] + ] + in actual `shouldBe` expected + + it "chooses the last selection if the type matches" $ do + actual <- graphql (garment "Shirt" :| []) inlineQuery + let expected = object + [ "data" .= object + [ "garment" .= object + [ "size" .= ("L" :: Text) + ] ] ] - ] - in actual `shouldBe` expected - - it "chooses the last selection if the type matches" $ do - actual <- graphql (garment "Shirt" :| []) inlineQuery - let expected = object - [ "data" .= object - [ "garment" .= object - [ "size" .= ("L" :: Text) + in actual `shouldBe` expected + + it "embeds inline fragments without type" $ do + let query = [r|{ + garment { + circumference + ... { + size + } + } + }|] + resolvers = Schema.object "garment" $ return [circumference, size] + + actual <- graphql (resolvers :| []) query + let expected = object + [ "data" .= object + [ "garment" .= object + [ "circumference" .= (60 :: Int) + , "size" .= ("L" :: Text) + ] ] ] - ] - in actual `shouldBe` expected - - it "embeds inline fragments without type" $ do - let query = [r|{ - garment { - circumference - ... { - size - } - } - }|] - resolvers = Schema.object "garment" $ return [circumference, size] - - actual <- graphql (resolvers :| []) query - let expected = object - [ "data" .= object - [ "garment" .= object + in actual `shouldBe` expected + + it "evaluates fragments on Query" $ do + let query = [r|{ + ... { + size + } + }|] + + actual <- graphql (size :| []) query + actual `shouldNotSatisfy` hasErrors + + describe "Fragment spread executor" $ do + it "evaluates fragment spreads" $ do + let query = [r| + { + ...circumferenceFragment + } + + fragment circumferenceFragment on Hat { + circumference + } + |] + + actual <- graphql (circumference :| []) query + let expected = object + [ "data" .= object [ "circumference" .= (60 :: Int) - , "size" .= ("L" :: Text) ] ] - ] - in actual `shouldBe` expected - - it "evaluates fragments on Query" $ do - let query = [r|{ - ... { - size - } - }|] - - actual <- graphql (size :| []) query - actual `shouldNotSatisfy` hasErrors - - it "evaluates nested fragments" $ do - let query = [r| - { - ...circumferenceFragment - } - - fragment circumferenceFragment on Hat { - circumference - } - - fragment hatFragment on Hat { - ...circumferenceFragment - } - |] - - actual <- graphql (circumference :| []) query - let expected = object - [ "data" .= object - [ "circumference" .= (60 :: Int) + in actual `shouldBe` expected + + it "evaluates nested fragments" $ do + let query = [r| + { + garment { + ...circumferenceFragment + } + } + + fragment circumferenceFragment on Hat { + ...hatFragment + } + + fragment hatFragment on Hat { + circumference + } + |] + + actual <- graphql (garment "Hat" :| []) query + let expected = object + [ "data" .= object + [ "garment" .= object + [ "circumference" .= (60 :: Int) + ] + ] ] - ] - in actual `shouldBe` expected - - it "evaluates fragments defined in any order" $ do - let query = [r| - { - ...circumferenceFragment - } - - fragment circumferenceFragment on Hat { - ...hatFragment - } - - fragment hatFragment on Hat { - circumference - } - |] - - actual <- graphql (circumference :| []) query - let expected = object - [ "data" .= object - [ "circumference" .= (60 :: Int) + in actual `shouldBe` expected + + it "rejects recursive fragments" $ do + let query = [r| + { + ...circumferenceFragment + } + + fragment circumferenceFragment on Hat { + ...circumferenceFragment + } + |] + + actual <- graphql (circumference :| []) query + actual `shouldSatisfy` hasErrors + + it "considers type condition" $ do + let query = [r| + { + garment { + ...circumferenceFragment + ...sizeFragment + } + } + fragment circumferenceFragment on Hat { + circumference + } + fragment sizeFragment on Shirt { + size + } + |] + expected = object + [ "data" .= object + [ "garment" .= object + [ "circumference" .= (60 :: Int) + ] + ] ] - ] - in actual `shouldBe` expected - - it "rejects recursive" $ do - let query = [r| - { - ...circumferenceFragment - } - - fragment circumferenceFragment on Hat { - ...circumferenceFragment - } - |] - - actual <- graphql (circumference :| []) query - actual `shouldSatisfy` hasErrors + actual <- graphql (garment "Hat" :| []) query + actual `shouldBe` expected |