R/skip_test.R

In HenrikBengtsson/future.tests: Test Suite for 'Future API' Backends

#' Skip The Current Test
#'
#' Signals a `TestSkipped` condition.
#'
#' @inheritParams base::message
#'
#' @return (invisible) A [base::condition] of class `TestSkipped`.
#'
#' @export
skip_test <- function(..., domain = NULL) {
  message <- if (length(list(...)) == 0) {
    .makeMessage("Test skipped", domain = domain)
  } else {
    .makeMessage(..., domain = domain)
  }
  call <- sys.call()
  cond <- structure(list(
    message = message,
    call = call
  ), class = c("TestSkipped", "condition"))
  signalCondition(cond)
  invisible(cond)
}