tests/testthat/test-function-restoreEncoding.R

test_that("restoreEncoding() works", {

  f <- kwb.fakin:::restoreEncoding

  expect_error(f())

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