tests/testthat/helper-run-tests.R

In ankane/dbx: A Fast, Easy-to-Use Database Interface

# set time zone
Sys.setenv(TZ="America/Los_Angeles")

runTests <- function(db, redshift=FALSE) {
  assign(".testthat_db", db, envir=.GlobalEnv)

  runSelectTests(db)
  runInsertTests(db, redshift=redshift)
  runUpdateTests(db)
  runUpsertTests(db, redshift=redshift)
  runDeleteTests(db)
  runDataTypeTests(db, redshift=redshift)
  runExecuteTests(db)

  rm(".testthat_db", envir=.GlobalEnv)

  dbxDisconnect(db)
}