tests/testthat/setup.R

In pnacht/simplysql: Simple, secure DSN-like SQL connectivity

setup_connection <- function() {
  skip_on_cran()

  pool <- pool::dbPool(drv = RSQLite::SQLite(),
                       dbname = ":memory:")

  options(simplysql.connection_pool = pool)

  withr::defer(pool::poolClose(pool),
               parent.frame())

  return(pool)
}