anchor.diff:  *)
   
   let getMany conn = 
  -    for i in 1..100 do
  +    for i in 1..50 do
           insertUser conn {id = i; name = "pepe" + i.ToString(); address = None}
       let first10 = Sql.execReaderF conn "select * from person" |> Seq.ofDataReader |> Seq.truncate 10
       for i in first10 do
  
positive.code:         let conn = Sql.withConnection conn
          dataReaderIsParallelizable conn)
  
  [<Test>]
  let ``datareader is parallelizable persistent``() =
      dataReaderIsParallelizable(withNewDbFile())
  
  let dataReaderToSeqIsForwardOnly conn =
      insertUsers conn
  
negative.code:     withDatabase (fun conn ->
          let conn = Sql.withConnection conn
          getMany conn)
  
  
  [<Test>]
  let ``get many persistent``() =
  