graphql/tests/Language/GraphQL/AST/ParserSpec.hs

144 lines
4.3 KiB
Haskell
Raw Normal View History

2019-07-22 05:50:00 +02:00
{-# LANGUAGE OverloadedStrings #-}
2019-09-06 07:48:01 +02:00
{-# LANGUAGE QuasiQuotes #-}
module Language.GraphQL.AST.ParserSpec
2019-07-22 05:50:00 +02:00
( spec
) where
2020-01-25 16:37:17 +01:00
import Data.List.NonEmpty (NonEmpty(..))
import Language.GraphQL.AST.Document
import Language.GraphQL.AST.Parser
2019-09-27 10:50:38 +02:00
import Test.Hspec (Spec, describe, it)
2020-01-25 16:37:17 +01:00
import Test.Hspec.Megaparsec (shouldParse, shouldSucceedOn)
2019-07-22 05:50:00 +02:00
import Text.Megaparsec (parse)
2019-09-06 07:48:01 +02:00
import Text.RawString.QQ (r)
2019-07-22 05:50:00 +02:00
spec :: Spec
2019-09-06 07:48:01 +02:00
spec = describe "Parser" $ do
2019-07-22 05:50:00 +02:00
it "accepts BOM header" $
2019-09-27 10:50:38 +02:00
parse document "" `shouldSucceedOn` "\xfeff{foo}"
2019-09-06 07:48:01 +02:00
it "accepts block strings as argument" $
2019-09-27 10:50:38 +02:00
parse document "" `shouldSucceedOn` [r|{
2019-09-06 07:48:01 +02:00
hello(text: """Argument""")
2019-09-27 10:50:38 +02:00
}|]
2019-09-06 07:48:01 +02:00
it "accepts strings as argument" $
2019-09-27 10:50:38 +02:00
parse document "" `shouldSucceedOn` [r|{
2019-09-06 07:48:01 +02:00
hello(text: "Argument")
2019-09-27 10:50:38 +02:00
}|]
it "accepts two required arguments" $
parse document "" `shouldSucceedOn` [r|
mutation auth($username: String!, $password: String!){
2020-01-05 07:42:04 +01:00
test
}|]
it "accepts two string arguments" $
parse document "" `shouldSucceedOn` [r|
mutation auth{
2020-01-05 07:42:04 +01:00
test(username: "username", password: "password")
}|]
it "accepts two block string arguments" $
parse document "" `shouldSucceedOn` [r|
mutation auth{
2020-01-05 07:42:04 +01:00
test(username: """username""", password: """password""")
}|]
2020-01-03 07:20:48 +01:00
it "parses minimal schema definition" $
parse document "" `shouldSucceedOn` [r|schema { query: Query }|]
2020-01-05 07:42:04 +01:00
it "parses minimal scalar definition" $
parse document "" `shouldSucceedOn` [r|scalar Time|]
it "parses ImplementsInterfaces" $
parse document "" `shouldSucceedOn` [r|
type Person implements NamedEntity & ValuedEntity {
name: String
}
|]
it "parses a type without ImplementsInterfaces" $
parse document "" `shouldSucceedOn` [r|
type Person {
name: String
}
|]
it "parses ArgumentsDefinition in an ObjectDefinition" $
parse document "" `shouldSucceedOn` [r|
type Person {
name(first: String, last: String): String
}
|]
2020-01-07 13:56:58 +01:00
it "parses minimal union type definition" $
parse document "" `shouldSucceedOn` [r|
union SearchResult = Photo | Person
|]
2020-01-11 08:32:25 +01:00
it "parses minimal interface type definition" $
parse document "" `shouldSucceedOn` [r|
interface NamedEntity {
name: String
}
|]
it "parses minimal enum type definition" $
parse document "" `shouldSucceedOn` [r|
enum Direction {
NORTH
EAST
SOUTH
WEST
}
|]
it "parses minimal enum type definition" $
parse document "" `shouldSucceedOn` [r|
enum Direction {
NORTH
EAST
SOUTH
WEST
}
|]
it "parses minimal input object type definition" $
parse document "" `shouldSucceedOn` [r|
input Point2D {
x: Float
y: Float
}
|]
2020-01-15 20:20:50 +01:00
it "parses minimal input enum definition with an optional pipe" $
parse document "" `shouldSucceedOn` [r|
directive @example on
| FIELD
| FRAGMENT_SPREAD
|]
2020-01-25 16:37:17 +01:00
it "parses schema extension with a new directive" $
parse document "" `shouldSucceedOn`[r|
extend schema @newDirective
|]
it "parses schema extension with an operation type definition" $
parse document "" `shouldSucceedOn` [r|extend schema { query: Query }|]
it "parses schema extension with an operation type and directive" $
let newDirective = Directive "newDirective" []
testSchemaExtension = TypeSystemExtension
$ SchemaExtension
$ SchemaOperationExtension [newDirective]
$ OperationTypeDefinition Query "Query" :| []
query = [r|extend schema @newDirective { query: Query }|]
in parse document "" query `shouldParse` (testSchemaExtension :| [])
2020-01-28 11:08:28 +01:00
it "parses an object extension" $
parse document "" `shouldSucceedOn` [r|
extend type Story {
isHiddenLocally: Boolean
}
|]