/usr/share/doc/r-cran-rlang/tests/testthat/test-encoding.R is in r-cran-rlang 0.2.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | context("encoding")
test_that("can roundtrip symbols in non-UTF8 locale", {
with_non_utf8_locale({
expect_identical(
as_string(sym(get_alien_lang_string())),
get_alien_lang_string()
)
})
})
test_that("Unicode escapes are always converted to UTF8 characters on roundtrip", {
expect_identical(
as_string(sym("<U+5E78><U+798F>")),
"\u5E78\u798F"
)
})
test_that("Unicode escapes are always converted to UTF8 characters in as_list()", {
with_non_utf8_locale({
env <- child_env(empty_env())
env_bind(env, !! get_alien_lang_string() := NULL)
list <- as_list(env)
expect_identical(names(list), get_alien_lang_string())
})
})
test_that("Unicode escapes are always converted to UTF8 characters with env_names()", {
with_non_utf8_locale({
env <- child_env(empty_env())
env_bind(env, !! get_alien_lang_string() := NULL)
expect_identical(env_names(env), get_alien_lang_string())
})
})
|