我的 R 测试存在以下问题。我有测试函数需要更改数据库、计算结果、检查这些结果是否等于测试值并清理数据库。我正在尝试使用来自 MySQL 的事务以及来自 RMySQL 的 dbBegin(con) 和 dbRollback(con) 函数。
我试图运行以下代码:
.setUp <- function() {
dbBegin(con)
}
.tearDown <- function() {
dbRollback(con)
}
test.function1 <- function() {
....
}
test.function2 <- function() {
....
}
使用测试套件
test.suite <- defineTestSuite("example",
dirs = file.path("tests"),
testFileRegexp = '*.r')
test.result <- runTestSuite(test.suite)
printTextProtocol(test.result)
但是,当我运行多个功能时,我得到
Error in .local(conn, statement, ...) :
could not run statement: Duplicate entry '-1' for key 'PRIMARY'
这意味着我永远不会回滚我在数据库中写入的内容。
谁能指出上面的代码有什么问题和/或如何在 R + RMySQL 中编写测试来测试内部事务?
谢谢,弗拉基米尔