anchor.diff:          testCaseAsync "Creates design docs and gets view results" <| async {
               // Make sure the design docs exist
               do! createDesignDocs defaultDesignDocs client
  +
               // Create at least one doc that would match
  -            let! created = create ({defaultRecord with Baz = 15}) client
  -
  -            printfn "Created id is %s" created.Id
  -
  +            do! create ({defaultRecord with Baz = 15}) client |> Async.Ignore
               let! viewResult = executeView<int> designDocName viewName None client
   
               Expect.isGreaterThan (Seq.length viewResult) 0 "View should return at least one result"
  
positive.code:     Bar: bool
      Baz: int
      Bat: int64
  }
  
  let defaultRecord = {
  
negative.code: 
          testCaseAsync "Warnings work" <| async {
              let mutable called = false
              let handleWarning _ =
                  called <- true
  
              let clientWithWarning = client |> warning (Event.add handleWarning)
              let! created = create defaultRecord clientWithWarning
  