tests/testthat/test-xml_node.R

test_that("print method is correct", {
  x <- read_html(test_path("lego.html.bz2"))
  body <- xml_find_first(x, "//body")
  expect_snapshot(print(body))
})
hadley/xml2 documentation built on Jan. 10, 2024, 3:52 p.m.