test_that("source_file always uses UTF-8 encoding", {
has_locale <- function(l) {
has <- TRUE
tryCatch(
withr::with_locale(c(LC_CTYPE = l), "foobar"),
warning = function(w) has <<- FALSE,
error = function(e) has <<- FALSE
)
has
}
## Some text in UTF-8
tmp <- tempfile()
on.exit(unlink(tmp), add = TRUE)
utf8 <- as.raw(c(
0xc3, 0xa1, 0x72, 0x76, 0xc3, 0xad, 0x7a, 0x74, 0xc5, 0xb1, 0x72, 0xc5,
0x91, 0x20, 0x74, 0xc3, 0xbc, 0x6b, 0xc3, 0xb6, 0x72, 0x66, 0xc3, 0xba,
0x72, 0xc3, 0xb3, 0x67, 0xc3, 0xa9, 0x70
))
writeBin(c(charToRaw("x <- \""), utf8, charToRaw("\"\n")), tmp)
run_test <- function(locale) {
if (has_locale(locale)) {
env <- new.env()
withr::with_locale(
c(LC_CTYPE = locale),
source_file(tmp, env = env, wrap = FALSE)
)
expect_equal(Encoding(env$x), "UTF-8")
expect_equal(charToRaw(env$x), utf8)
}
}
## Try to read it in latin1 and UTF-8 locales
## They have diffefent names on Unix and Windows
run_test("en_US.ISO8859-1")
run_test("en_US.UTF-8")
run_test("English_United States.1252")
run_test("German_Germany.1252")
run_test(Sys.getlocale("LC_CTYPE"))
})
Generated by dwww version 1.15 on Sun May 19 02:23:09 CEST 2024.