tests/testthat/test-check_crucial_names.R

In 2DegreesInvesting/r2dii.plot.static: Create Standard Static '2dii' Plots

test_that("with unexpected names throws a gracefull error", {
  expect_snapshot_error(check_crucial_names(tibble(x = 1), c("bad1", "bad2")))
})

test_that("with expected names returns first argument invisibly", {
  data <- tibble(x = 1)
  expect_invisible(out <- check_crucial_names(data, "x"))
  expect_identical(data, out)
})

test_that("with expected names is silent", {
  expect_silent(check_crucial_names(c(a = 1), "a"))
})