tests/testthat/test-function-cat_text.R

test_that("cat_text() works", {

  f <- kwb.prep:::cat_text
  
  expect_error(f())
  expect_error(f("a"))
  
  result <- capture.output(f("applying_filter", "steps"))
  expect_identical(result, "Filterschritte 'steps' anwenden")
})
KWB-R/kwb.prep documentation built on June 11, 2022, 1:29 p.m.