tests/testthat/test-transactions.R

In ropensci/dittodb: A Test Environment for Database Requests

test_that("transactions", {
  con_mockmaria <- con_rpostgres <- list()
  class(con_mockmaria) <- "DBIMockMariaDBConnection"
  class(con_rpostgres) <- "DBIMockRPostgresConnection"

  # these are all currently no-ops
  expect_true(dbBegin(con_mockmaria))
  expect_true(dbCommit(con_mockmaria))
  expect_true(dbRollback(con_mockmaria))

  expect_true(dbBegin(con_rpostgres))
  expect_true(dbCommit(con_rpostgres))
  expect_true(dbRollback(con_rpostgres))
})