anchor.diff:      let someTran = Sql.transactional conn someTranWithSubTran
       assertThrows<SQLiteException> someTran
   
  -[<Test>]
  -
  +[<Test;Parallelizable>]
   let ``nested transactions are NOT supported`` () =
       withDatabase (fun conn ->
           let conn = Sql.withConnection conn
  
positive.code:     | Sql.Failure e -> printfn "Failed with exception %A" e
      Assert.AreEqual(0L, countUsers conn)
  
  [<Test>]
  
  let ``transaction with option`` () =
      withDatabase (fun conn ->
          let conn = Sql.withConnection conn
  
negative.code:         all |> Seq.truncate 10 |> Seq.iter (fun r -> printfn "name: %s" (r?name).Value)
      using reader withReader
  
  [<Test;Parallelizable>]
  let ``datareader to seq is cacheable 3`` () =
      withDatabase (fun conn ->
          let conn = Sql.withConnection conn
  