Validate all variables are defined

2020-09-21 07:28:40 +02:00
parent 38c3097bcf
commit 3e393004ae
8 changed files with 166 additions and 43 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -122,7 +122,8 @@ spec = do
    describe "definition" $
        it "indents block strings in arguments" $
            let location = Location 0 0
-                arguments = [Argument "message" (String "line1\nline2") location]
+                argumentValue = Node (String "line1\nline2") location
+                arguments = [Argument "message" argumentValue location]
                field = Field Nothing "field" arguments [] [] location
                operation = DefinitionOperation
                    $ SelectionSet (pure $ FieldSelection field) location