Set useBytes = TRUE, so output is no re-encoded

jimhester · jimhester · commit ad80955fe1a0 · 2020-04-08T15:30:39.000-04:00
diff --git a/tests/testthat/test-read-xml.R b/tests/testthat/test-read-xml.R
@@ -90,7 +90,7 @@ test_that("read_html works with non-ASCII encodings", {
   tmp <- tempfile()
   on.exit(unlink(tmp))
 
-  writeLines("<html><body>\U2019</body></html>", tmp)
+  writeLines("<html><body>\U2019</body></html>", tmp, useBytes = TRUE)
   res <- read_html(tmp, encoding = "UTF-8")
 
   expect_equal(as.character(res, options = ""),
