anchor.diff:  open Microsoft.AspNetCore.Hosting
   open Microsoft.AspNetCore.TestHost
   open Microsoft.Extensions.DependencyInjection
  +open FSharp.Control.Tasks.V2.ContextInsensitive
   open Xunit
   
   // ---------------------------------
  
positive.code:     request
  
  let makeRequest (client : HttpClient) (request : HttpRequestMessage) =
      use server = new TestServer(createHost())
      use client = server.CreateClient()
      request
      |> client.SendAsync
      |> runTask
  
  let ensureSuccess (response : HttpResponseMessage) =
      if not response.IsSuccessStatusCode
      then response.Content.ReadAsStringAsync() |> runTask |> failwithf "%A"
      else response
  
  let isStatus (code : HttpStatusCode) (response : HttpResponseMessage) =
      Assert.Equal(code, response.StatusCode)
  
negative.code: 
  let readText (response : HttpResponseMessage) =
      response.Content.ReadAsStringAsync()
  
  let shouldEqual expected actual =
      Assert.Equal(expected, actual)
  