anchor.diff:          |> Async.RunSynchronously
   
       [<Fact>]
  -    let ``Pump many events at Raven`` () : unit =
  +    let ``Pump many events at Raven with concurrency`` () : unit =
           use config = Metric.Config.WithHttpEndpoint("http://localhost:8083/")
           
           let documentStore = buildDocumentStore() :> Raven.Client.IDocumentStore 
  
positive.code:                 for event in myEvents do
                      do! projector.Enqueue event
  
                  consoleLog <| sprintf "Enqueue Time: %A ms" sw.ElapsedMilliseconds
  
                  projector.StartWork()
  
negative.code:                 sw.Stop()
  
                  consoleLog <| sprintf "Insert all time: %A ms" sw.ElapsedMilliseconds
                  let insertOnlyTime = new TimeSpan(sw.ElapsedTicks - enqueueTicks)
                  consoleLog <| sprintf "Insert rate %A/s" (double streamCount / double insertOnlyTime.TotalSeconds)
              }
          }
          |> Async.Parallel
  