context("error")
test_that("non-character raises error", {
expect_error(create_env(1:3, identity))
expect_error(create_env(FALSE, identity))
})
test_that("non-native encoding causes warning", {
with_mock(
`bindr::to_symbol_encoding` = function(x) paste0(x, "-garbled"),
expect_warning(create_env(letters[1:2], identity),
"a -> a-garbled, b -> b-garbled", fixed = TRUE)
)
})
Generated by dwww version 1.15 on Thu Jun 20 13:47:14 CEST 2024.