tests/testthat/test-encoding.R

In enc: Portable Tools for 'UTF-8' Character Data

context("encoding")

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))
})