anchor.diff:  
       let data (response : Response<_> * HttpStatusCode) = (response |> fst).Data
   
  -//    // ----------------------------------------------------------------------------
  -//    // Test logic
  -//    // ----------------------------------------------------------------------------
  -//    let execute (result : Example) = 
  -//        result.OutputResponse.Add((sprintf "%s %s HTTP/1.1" result.Method result.Uri))
  -//        // Create & configure HTTP web request
  -//        let req = HttpWebRequest.Create(sprintf "%s%s" url result.Uri) :?> HttpWebRequest
  -//        req.ProtocolVersion <- HttpVersion.Version11
  -//        req.Method <- result.Method
  -//        // Encode body with POST data as array of bytes
  -//        if result.Requestbody.IsSome then 
  -//            let postBytes = Encoding.ASCII.GetBytes(result.Requestbody.Value)
  -//            req.ContentLength <- int64 postBytes.Length
  -//            // Write data to the request
  -//            let reqStream = req.GetRequestStream()
  -//            reqStream.Write(postBytes, 0, postBytes.Length)
  -//            reqStream.Close()
  -//        else req.ContentLength <- int64 0
  -//        let printHeaders (headerCollection : WebHeaderCollection) = 
  -//            for i = 0 to headerCollection.Count - 1 do
  -//                result.OutputResponse.Add(sprintf "%s:%s" headerCollection.Keys.[i] (headerCollection.GetValues(i).[0]))
  -//        
  -//        let print (resp : HttpWebResponse) = 
  -//            printHeaders (req.Headers)
  -//            if result.Requestbody.IsSome then 
  -//                let parsedJson = JsonConvert.DeserializeObject(result.Requestbody.Value)
  -//                result.OutputResponse.Add(JsonConvert.SerializeObject(parsedJson, Formatting.Indented))
  -//            result.OutputResponse.Add("")
  -//            result.OutputResponse.Add("")
  -//            result.OutputResponse.Add((sprintf "HTTP/1.1 %i %s" (int resp.StatusCode) (resp.StatusCode.ToString())))
  -//            printHeaders (resp.Headers)
  -//            if req.HaveResponse then 
  -//                let stream = resp.GetResponseStream()
  -//                let reader = new StreamReader(stream)
  -//                let responseBody = reader.ReadToEnd()
  -//                result.ResponseBody <- responseBody
  -//                let parsedJson = JsonConvert.DeserializeObject(responseBody)
  -//                if parsedJson <> Unchecked.defaultof<_> then 
  -//                    result.OutputResponse.Add("")
  -//                    result.OutputResponse.Add
  -//                        (sprintf "%s" (JsonConvert.SerializeObject(parsedJson, Formatting.Indented)))
  -//        
  -//        try 
  -//            result.Response <- req.GetResponse() :?> HttpWebResponse
  -//            print result.Response
  -//        with :? WebException as e -> 
  -//            result.Response <- e.Response :?> HttpWebResponse
  -//            print result.Response
  -//        for line in result.OutputResponse do
  -//            printfn "%s" line
  -//        result
  -//    
  -//    // ----------------------------------------------------------------------------
  -//    // Output logic
  -//    // ----------------------------------------------------------------------------
  -//    let document (result : Example) = 
  -//        if Directory.Exists(Constants.WebFolder) then
  -//            result.Output.Add(" ")
  -//            let path = Path.Combine(Constants.WebFolder, "example-" + result.Id + ".rst")
  -//            let examplePath = Path.Combine(Constants.WebFolder, "example-" + result.Id + ".txt") 
  -//            File.WriteAllLines(path, result.Output)
  -//            File.WriteAllLines(examplePath, result.OutputResponse)
  -//        result
   
   type ``Index Creation Tests``() = 
   
  
positive.code: type ``Get Index Tests``() = 
      [<Example("get-indices-id-1", "")>]
      member __.``Getting an index detail by name`` (client : FlexClient, handler : LoggingHandler) = 
          client.AddIndex(mockIndexSettings()).Result |> isCreated
          let actual = client.GetIndex("contact").Result
          actual |> isSuccessful
          (actual |> data).IndexName =? "contact"
  
negative.code:     let addField (index : Index.Dto) (fieldName : string) =
          index.Fields <- index.Fields |> Array.append [|new Field.Dto(fieldName)|]
      
  
      // ----------------------------------------------------------------------------
      // Test assertions for FlexClient based tests
  