anchor.diff:  open System.Text
   open System.Threading
   open Microsoft.Owin.Testing
  +open Swensen.Unquote
   
   [<AutoOpenAttribute>]
   module Helpers =
  
positive.code: 
      let isSuccessful response = response |> snd =? HttpStatusCode.OK
  
      let responseStatusEquals status result = result.Response.StatusCode =? status
  
  //    // ----------------------------------------------------------------------------
  //    // Test logic
  
negative.code:         |> responseStatusEquals HttpStatusCode.OK
      
      [<Example("post-indices-id-1", "Creating an index without any data")>]
      member __.``Creating an index without any parameters should return 200`` (client : FlexClient, indexName : string, handler : LoggingHandler) = 
          let actual = client.AddIndex(newIndex indexName).Result
          actual |> isCreated
          client.DeleteIndex(indexName).Result |> isSuccessful
      
      [<Example("post-indices-id-2", "Duplicate index cannot be created")>]
      member __.``Duplicate index cannot be created`` (client : FlexClient, index : Index.Dto, handler : LoggingHandler) = 
          client.AddIndex(index).Result |> isCreated
          let actual = client.AddIndex(index).Result
          actual |> hasErrorCode "INDEX_ALREADY_EXISTS"
          actual |> hasHttpStatusCode HttpStatusCode.Conflict
          client.DeleteIndex(index.IndexName).Result |> isSuccessful
      
      member __.``Create response contains the id of the created index`` (client : FlexClient, index : Index.Dto, handler : LoggingHandler) = 
          let actual = client.AddIndex(index).Result
          actual |> isCreated
          (actual |> data).Id =? index.IndexName
          client.DeleteIndex(index.IndexName).Result |> isSuccessful
      
      member __.``Index cannot be created without IndexName`` (client : FlexClient, handler : LoggingHandler) = 
          let actual = client.AddIndex(newIndex "").Result
          actual |> hasHttpStatusCode HttpStatusCode.BadRequest
          
      [<Example("post-indices-id-3", "")>]
      member __.``Create index with two field 'firstname' & 'lastname'`` (client : FlexClient, indexName : string, handler : LoggingHandler) = 
          let index = newIndex indexName
          index.Fields <- [| new Field.Dto("firstname"); new Field.Dto("lastname")|]
          client.AddIndex(index).Result |> isCreated
          client.DeleteIndex(indexName).Result |> isSuccessful
      
      [<Example("post-indices-id-4", "")>]
      member __.``Create an index with dynamic fields`` (client : FlexClient, index : Index.Dto, handler : LoggingHandler) = 
          // The dynamic field are already constructed in the Index.Dto injected parameter
          // See fullname field
          client.AddIndex(index).Result |> isCreated
          client.DeleteIndex(index.IndexName).Result |> isSuccessful
      
      [<Example("post-indices-id-5", "")>]
      member __.``Create an index by setting all properties`` (client : FlexClient, index : Index.Dto, handler : LoggingHandler) = 
          let actual = client.AddIndex(index).Result
          actual |> hasHttpStatusCode HttpStatusCode.Created
          client.DeleteIndex(index.IndexName).Result |> isSuccessful
  
  //module ``Index Update Tests`` = 
  //    [<Example("put-indices-id-1", "")>]
  //    member __.``Update an index`` (client : FlexClient, indexName : string, handler : LoggingHandler) = 
  