tests/testthat/helper-heartbeat.R

In richfitz/heartbeatr: Heartbeat Support using 'Redis'

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')")
}