tests/testthat/helper.R

In ropensci/dittodb: A Test Environment for Database Requests

skip_env <- function(which) {
  if (
    any(c("RPostgres", "RPostgreSQL", "odbc") %in% which) &&
      tolower(Sys.getenv("DITTODB_ENABLE_PG_TESTS")) != "true"
  ) {
    skip("Skipping tests that need functioning Postgres.")
  }

  # installing both 32-bit and 64-bit odbc drivers on windows is non-trivial, so
  # skipping the 32-bit version of odbc tests which struggle to find an
  # appropriate 32-bit driver.
  win_x32 <- .Platform[["OS.type"]] == "windows" && version[["arch"]] == "i386"
  if ("odbc" %in% which && win_x32) {
    skip("Skipping odbc tests on 32bit windows.")
  }

  if (
    "RMariaDB" %in% which &&
      tolower(Sys.getenv("DITTODB_ENABLE_MARIA_TESTS")) != "true"
  ) {
    skip("Skipping tests that need functioning MariaDB.")
  }

  # always skip on cran
  skip_on_cran()
}

skip_locally <- function(message) {
  jenkins <- identical(Sys.getenv("JENKINS_HOME"), "true")
  travis <- identical(Sys.getenv("TRAVIS"), "true")
  appveyor <- identical(Sys.getenv("APPVEYOR"), "True")
  gh_action <- identical(Sys.getenv("GITHUB_ACTIONS"), "true")

  # an over-ride to force local skipping. Useful when running covr which usually
  # runs as if it were cran
  db_test_local <- identical(Sys.getenv("DB_TEST_LOCAL"), "true")
  if (db_test_local) {
    return(skip(paste("Skipping locally (by env var DB_TEST_LOCAL):", message)))
  }

  # if we are trying to skip when the tests are being run locally
  if (!any(jenkins, travis, appveyor, gh_action)) {
    return(skip(paste("Skipping locally:", message)))
  }
}

testthat_transition <- function(old, new) {
  is_3e <- tryCatch(testthat::edition_get() == 3, error = function(e) FALSE)
  if (is_3e) {
    eval(new, envir = parent.frame())
  } else {
    eval(old, envir = parent.frame())
  }
}