anchor.diff:  
   [<Test>]
   let ``insert then get persistent`` () = 
  -    insertThenGet (recreateDbFile())
  +    insertThenGet (withNewDbFile())
   
   let findNonExistentRecord conn = 
       let p = findUser conn 39393
  
positive.code: let ``find non-existent record``() =
      withDatabase (fun conn ->
          findNonExistentRecord (Sql.withConnection conn))
  
  let findExistentRecord conn = 
      insertUser conn {id = 1; name = "pepe"; address = None}
  
negative.code:         conn
      withResource createConnectionAndSchema (fun c -> c.Dispose()) f
  
  let withNewDbFile() =
      File.Delete "test.db"
      createSchema (createPersistentConnection())
      Sql.withNewConnection createPersistentConnection
  