anchor.diff:      findNonExistentRecord (withNewDbFile())
   
   let findExistentRecord conn = 
  -    insertUser conn {id = 1; name = "pepe"; address = None}
  +    insertUser conn {id = 1; name = "pepe"; parent = None}
       let p = findUser conn 1
       Assert.IsTrue p.IsSome
       printfn "end test"
  
positive.code:     transactionWithException (withNewDbFile())
  
  let someTran conn =
      insertUser conn {id = 1; name = "pepe"; address = None}
      insertUser conn {id = 2; name = "jose"; address = None}
      ()
  
  let transactionCommitted conn =
  
negative.code:     Sql.execNonQueryF conn "delete person where id = %d" id |> ignore
  
  let insertThenGet conn = 
      insertUser conn {id = 1; name = "pepe"; parent = None}
      printfn "count: %d" (countUsers conn)
      let p = getUser conn 1
      printfn "id=%d, name=%s" p.id p.name
  