tests/testthat/test-children.R

In selenider: Concise, Lazy and Reliable Wrapper for 'chromote' and 'selenium'

test_that("DOM-relative functions work", {
  session <- selenider_test_session()

  open_url("https://ashbythorpe.github.io/selenider/articles/test-site.html")

  element <- s(".actions-form")

  ancestors <- elem_ancestors(element)
  
  elem_expect(ancestors, has_length(5))

  parent <- elem_parent(element)

  expect_true(parent == s("#main"))

  siblings <- elem_siblings(element)

  expect_true(siblings[[1]] == s(".page-header"))

  children <- elem_children(element)

  elem_expect(children, has_length(1))

  expect_true(children[[1]] == s(".actions-test"))

  descendants <- elem_descendants(element)

  elem_expect(descendants, has_length(6))

  expect_true(descendants[[1]] == s(".actions-test"))
  expect_true(descendants[[2]] == s(".actions-button"))
})