tests/testthat/test-dePolish.R

test_that("dePolish() just works", {
  x <- .readLetterspl("utf-8")
  expect_silent(
    r <- dePolish(x$nat)
  )
  expect_identical(r, x$ascii)
})
mbojan/mbtools documentation built on Oct. 16, 2023, 8:18 p.m.