test_that("forwards to xml2 functions", {
html <- minimal_html("<p id ='x'>Hello <i>children</i></p>")
p <- html_elements(html, "p")
expect_equal(html_name(p), "p")
expect_equal(html_attr(p, "id"), "x")
expect_equal(html_attr(p, "id2"), NA_character_)
expect_equal(html_attrs(p), list(c(id = "x")))
expect_equal(html_children(p), html_elements(html, "i"))
})
Generated by dwww version 1.15 on Sun May 19 02:09:09 CEST 2024.