test_that("can guess encoding", {
skip_on_os("linux") # some hidden dependency on system library
path <- system.file("html-ex", "bad-encoding.html", package = "rvest")
x <- read_html(path)
expect_snapshot(html_encoding_guess(x))
# deprecated
expect_snapshot(guess_encoding(x))
})
test_that("encoding repair is deprecated", {
skip_on_cran()
skip_on_os("linux") # some hidden dependency on system library
path <- system.file("html-ex", "bad-encoding.html", package = "rvest")
x <- read_html(path)
text <- html_text(html_element(x, "p"))
expect_snapshot(repair_encoding(text), error = FALSE)
expect_snapshot(repair_encoding(text, "ISO-8859-1"))
})
Generated by dwww version 1.15 on Sun May 19 02:08:27 CEST 2024.