tests/testthat/test-ascii.R

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

test_that("ASCII encoding detected works", {
  # Unclear why this fails on Linux in a latin-1 locale
  #
  # rhub::check(platform = "debian-clang-devel")
  skip_if(!isTRUE(l10n_info()$"Latin-1") && !isTRUE(l10n_info()$"UTF-8"))

  expect_equal(
    encoding(c(
      "a",
      iconv("\u00e4", to = "UTF-8"),
      iconv("\u00e4", to = "latin1"),
      as_unknown("\u00e4")
    )),
    c("ASCII", "UTF-8", "latin1", "unknown")
  )
})

test_that("encoding() accepts only character vectors", {
  expect_error(encoding(1:3), "character vector")
})

test_that("all_utf8()", {
  expect_true(all_utf8(character()))
  expect_true(all_utf8("a"))
  expect_true(all_utf8(iconv("ä", to = "UTF-8")))
  expect_true(all_utf8(c("a", iconv("ä", to = "UTF-8"))))
  expect_false(all_utf8(iconv("ä", to = "latin1")))
  expect_false(all_utf8(c("a", iconv("ä", to = "latin1"))))
  expect_false(all_utf8(c("a", as_unknown("ä"))))
})

test_that("all_utf8() accepts only character vectors", {
  expect_error(all_utf8(1:3), "character vector")
})