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")
}
MTES-MCT/didoscalim documentation built on June 14, 2025, 12:21 a.m.