tests/testthat/helper-utils.R

In data-edu/dataedu: Package for Data Science in Education Using R

# from https://github.com/jrnold/ggthemes/blob/master/tests/testthat/helper-utils.R

is_hexcolor <- function(x) {
  pattern <- stringr::regex("^#[a-f0-9]{6}$", ignore_case = TRUE)
  out <- stringr::str_detect(x, pattern)
  out[is.na(out)] <- FALSE
  out
}

expect_hexcolor <- function(object) {
  # capture object and label
  act <- quasi_label(rlang::enquo(object))

  valid <- is_hexcolor(act$val)
  expect(
    all(valid),
    glue::glue("Not all elements of {act$lab} are hex colors.")
  )

  invisible(act$val)
}

expect_error_free <- function(...) {
  expect_error(..., regexp = NA)
}