tests/testthat/test-html.R

In rvest: Easily Harvest (Scrape) Web Pages

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"))
})

test_that("validates inputs", {
  html <- minimal_html("<p id ='x'>Hello <i>children</i></p>")

  expect_snapshot(error = TRUE, {
    html_attr(html, 1)
    html_attr(html, "id", 1)
  })
})