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: [<TestFixture>]
  [<Category("CollectionPartitioner")>]
  module ``Collection Partitioning Tests`` =
  
      let imem = LocalRuntime.Create(ResourceRegistry.Empty)
      let run c = imem.Run c
  
negative.code:             |> run
              |> shouldEqual original
  
          Check.QuickThrowOnFail(tester, maxRuns = fsCheckRetries)