tests/testthat/test-function-example_string_with_specials.R

test_that("example_string_with_specials() works", {

  f <- kwb.fakin:::example_string_with_specials

  expect_error(f())
  expect_error(f("en"))
  expect_error(f("fr"))
  expect_is(f("de"), "character")
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.