tests/testthat/test-function-stop_if_not_all_in.R

test_that("stop_if_not_all_in() works", {

  f <- wasserportal:::stop_if_not_all_in

  expect_error(f())

  expect_error(f("a", c("b", "c"), type = "animal"), "No such animal")
})
KWB-R/wasserportal documentation built on June 6, 2024, 10:26 a.m.