Relax test for libxml2 2.14

jeroen · jeroen · commit c3d23eb0e2ff · 2025-08-20T12:30:45.000+02:00
diff --git a/tests/testthat/test-xml_parse.R b/tests/testthat/test-xml_parse.R
@@ -52,8 +52,8 @@ test_that("read_html properly passes parser arguments", {
 
   blanks <- read_html(xml2_example("cd_catalog.xml"), options = c("RECOVER", "NOERROR"))
   expect_equal(
-    as_list(blanks)$html$body$catalog$cd[[1]],
-    "\r\n    "
+    sub("\r\n", "\n", fixed = TRUE, as_list(blanks)$html$body$catalog$cd[[1]]),
+    "\n    "
   )
 
   no_blanks <- read_html(xml2_example("cd_catalog.xml"), options = c("RECOVER", "NOERROR", "NOBLANKS"))

Original file line number	Diff line number	Diff line change
`@@ -52,8 +52,8 @@ test_that("read_html properly passes parser arguments", {`
`52`	`52`
`53`	`53`	`blanks <- read_html(xml2_example("cd_catalog.xml"), options = c("RECOVER", "NOERROR"))`
`54`	`54`	`expect_equal(`
`55`		`- as_list(blanks)$html$body$catalog$cd[[1]],`
`56`		`- "\r\n "`
	`55`	`+ sub("\r\n", "\n", fixed = TRUE, as_list(blanks)$html$body$catalog$cd[[1]]),`
	`56`	`+ "\n "`
`57`	`57`	`)`
`58`	`58`
`59`	`59`	`no_blanks <- read_html(xml2_example("cd_catalog.xml"), options = c("RECOVER", "NOERROR", "NOBLANKS"))`