tests/testthat/test-function-remove_unwanted.R

test_that("remove_unwanted() works", {

  f <- kwb.fakin:::remove_unwanted

  expect_error(f())
  expect_identical(f("a"), "a")
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.