anchor.diff:    }
   }
   """
  -    let result = sync <| Executor(schema).AsyncExecute(query)
  +
  +[<Fact>]
  +let ``Input field should be marked as nullable when defaultValue is provided`` () =
  +    let root = Define.Object("Query", [ 
  +        Define.Field("onlyField", String, "The only field", [ 
  +            Define.Input("in", String, defaultValue = "1") 
  +        ], fun _ _ -> "Only value") 
  +    ])
  +    let schema = Schema(root)
  +    let result = sync <| Executor(schema).AsyncExecute(inputFieldQuery)
       let expected = NameValueLookup.ofList [
           "__type", upcast NameValueLookup.ofList [
               "fields", upcast [ 
  
positive.code:         ], fun _ _ -> "Only value") 
      ])
      let schema = Schema(root)
      let query = """{
    __type(name: "Query") {
      fields {
        name
        args {
          name
          type {
            kind
            name
          }
          defaultValue
        }
      }
    }
  }
  """
      let result = sync <| Executor(schema).AsyncExecute(query)
      let expected = NameValueLookup.ofList [
          "__type", upcast NameValueLookup.ofList [
              "fields", upcast [ 
  
negative.code:         ], fun _ _ -> "Only value") 
      ])
      let schema = Schema(root)
      let result = sync <| Executor(schema).AsyncExecute(inputFieldQuery)
      let expected = NameValueLookup.ofList [
          "__type", upcast NameValueLookup.ofList [
              "fields", upcast [ 
  