tests/testthat/test-abort.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("abort", {
  expect_snapshot({
    foo <- function(x = c("a", "b"), y, z, ...) {
      .cstr_combine_errors(
        x <- rlang::arg_match(x),
        abort_not_boolean(y),
        abort_not_null_or_integerish(z),
        rlang::check_dots_empty()
      )
    }
    err <- try(foo("z","z","z","z"), silent = TRUE)
    cat(attr(err, "condition")$message)

    try(abort_not_string(mean))
    try(abort_not_env_or_named_list(letters))
    try(abort_not_env_or_named_list(list(1,2)))
    try(abort_wrong_data(letters))
    try(abort_wrong_data(list(letters)))
    try(abort_wrong_data("unknown"))
    try(abort_wrong_data(list("unknown")))
    try(abort_wrong_data(mean))
    try(abort_wrong_data(list(mean)))
  })
})

test_that("describe", {
  expect_snapshot({
    writeLines(describe(letters))
    writeLines(describe(mean))
  })
})