anchor.diff:              let partitionedSeqs = partitions |> Sequential.map (fun p -> p.ToEnumerable()) |> run |> Seq.concat
               partitionedSeqs |> Seq.length |> int64 |> shouldEqual length
   
  -        Check.QuickThrowOnFail(tester, maxRuns = 500)
  +        Check.QuickThrowOnFail(tester, maxRuns = fsCheckRetries)
   
       // Section 2: Actual partitioner tests
   
  
positive.code:             partitionss |> Array.map fst |> shouldEqual workers
              partitionss |> Array.collect snd |> shouldEqual partitions
  
          Check.QuickThrowOnFail(tester, maxRuns = 500)
  
      [<Test>]
      let ``Partitionable collection simple`` () =
  
negative.code: [<TestFixture>]
  [<Category("CollectionPartitioner")>]
  module ``Collection Partitioning Tests`` =
  
      let fsCheckRetries =
  #if DEBUG
          500
  #else
          100
  #endif
  
      let imem = LocalRuntime.Create(ResourceRegistry.Empty)
      let run c = imem.Run c
  