anchor.diff:             ]
          }
   
  -
       let Query = 
           Define.Object<TestSubject>(
               name = "Query",
  
positive.code:         ]
      let expectedDeferred =
          NameValueLookup.ofList [
              "data", upcast NameValueLookup.ofList [ "a", upcast "Apple" ]
              "path", upcast ["Data"; "a"]
          ]
      let query = sprintf """{
          testData {
  
negative.code:         | Deferred(data, errors, deferred) -> 
              empty errors
              data.["data"] |> equals (upcast expectedDirect)
              deferred |> Observable.add (fun x -> actualDeferred.Add(x); mre.Set() |> ignore)
              if TimeSpan.FromSeconds(float 30) |> mre.WaitOne |> not
              then fail "Timeout while waiting for Deferred GQLResponse"
              actualDeferred |> single |> equals (upcast expectedDeferred)
          | _ -> fail "Expected Deferred GQLResponse")
  
  [<Fact>]
  