tests/testthat/helper-heartbeat.R

skip_if_no_redis <- function() {
  if (redux::redis_available()) {
    return()
  }
  testthat::skip("Redis is not available")
}

skip_if_not_isolated_redis <- function() {
  skip_if_no_redis()
  if (identical(Sys.getenv("HEARTBEATR_ISOLATED_REDIS"), "true")) {
    return()
  }
  testthat::skip(
    "Redis is not isolated (set envvar HEARTBEATR_ISOLATED_REDIS to 'true')")
}
mrc-ide/heartbeatr documentation built on April 19, 2021, 4:04 a.m.