R/testthat-utils.R

Defines functions skip_unless_dev_env generate_random_string

#' @noRd
generate_random_string <- function() {
  as.character(runif(1))
}

skip_unless_dev_env <- function() {
  set_work_env("DEV")
  if (get_work_env() == "DEV") {
    return(invisible(TRUE))
  }
  testthat::skip("No dev env configured")
}
nbc/didoscalim documentation built on Sept. 12, 2022, 10:17 a.m.