anchor.diff:          nestedTransactionsAreNotSupported conn)
       ()
   
  -[<Test>]
  +[<Test;Ignore("this doesn't dispose the last tx, locks the DB")>]
   let ``nested transactions are NOT supported persistent`` () =
       nestedTransactionsAreNotSupported (withNewDbFile())
   
  
positive.code:         transactionCommitted conn)
      ()
  
  [<Test;Ignore>]
  let ``transaction committed persistent``() =
      transactionCommitted (withNewDbFile())
  
  
negative.code:     ()
  
  let transactionCommitted conn =
      let someTran conn () = someTran conn
      let someTran = Sql.transactional conn someTran
      someTran()
      Assert.AreEqual(2L, countUsers conn)
  
  [<Test>]
  