inst/tinytest/test-detect-str.R

In uchardet: The Universal Character Encoding Detector

source("setup.R")

expect_error(detect_str_enc(NULL))
expect_error(detect_str_enc(NA))
expect_equal(detect_str_enc(""), NA_character_)
expect_equal(detect_str_enc(NA_character_), NA_character_)
expect_equal(detect_str_enc(character(0)), character(0))

x <- detect_str_enc(letters)
expect_true(is.character(x))
expect_equal(length(x), length(letters))
expect_equal(x, rep("ASCII", length(letters)))

x <- "\uc548\ub155 \uc0ac\uc6a9\uc790"
expect_equal(detect_str_enc(x), "UTF-8")

x <- rawToChar(as.raw(sample(0:255, 50)))
expect_equal(detect_str_enc(x), NA_character_)
# expect_warning(detect_str_enc(x), "Can not detect encoding.")

if (skip_os()) {
  exit_file("Skip tests on current OS")
}

for (i in seq_along(ex_files)) {
  if (skip_enc(ex_encs[i])) next
  expect_equal(detect_str_enc(read_utf8(ex_files[i])), ex_encs[i])
}