tests/testthat/helper-storr.R

In richfitz/storr: Simple Key Value Stores

rand_str <- function(n = 16L, hex = TRUE) {
  if (hex) {
    paste(sample(as.raw(0:255), n, replace = TRUE), collapse = "")
  } else {
    rawToChar(sample(as.raw(32:126), n, replace = TRUE))
  }
}

skip_long_test <- function() {
  if (identical(Sys.getenv("STORR_RUN_LONG_TESTS"), "true")) {
    return(invisible(TRUE))
  }
  testthat::skip("Skipping long running test")
}

copy_to_tmp <- function(src) {
  path <- tempfile()
  dir.create(path)
  file.copy(src, path, recursive = TRUE)
  file.path(path, src)
}

has_postgres <- function() {
  !is.null(tryCatch(DBI::dbConnect(RPostgres::Postgres()),
                    error = function(e) NULL))
}

skip_if_no_postgres <- function() {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("RPostgres")
  if (!has_postgres()) {
    testthat::skip("Can't make postgres connection")
  }
}

skip_if_interactive <- function() {
  if (interactive()) {
    testthat::skip("Running interactively")
  }
}


with_options <- function(opts, code) {
  oo <- options(opts)
  on.exit(options(oo))
  force(code)
}