tests/testthat/test-encoding.R

In krlmlr/utf8: Portable Tools for 'UTF-8' Character Data

test_that("encoding is always UTF-8", {
  expect_equal(Encoding(utf8("\u00e4")), "UTF-8")
  expect_equal(Encoding(utf8(iconv_to_latin1("\u00e4"))), "UTF-8")
  expect_equal(Encoding(utf8(enc2utf8("\u00e4"))), "UTF-8")
  expect_equal(
    Encoding(utf8(c(iconv_to_native("\u00e4"), iconv_to_alien("\u00e4")))),
    rep("UTF-8", 2)
  )
})