tests/testthat/test-isTransacting.R

In RPostgres: C++ Interface to PostgreSQL

test_that("isTransacting detects transactions correctly", {
  skip_on_cran()
  con <- postgresDefault()
  expect_false(postgresIsTransacting(con))
  dbBegin(con)
  expect_true(postgresIsTransacting(con))
  dbCommit(con)
  expect_false(postgresIsTransacting(con))
})