tests/testthat/test-page_menu.R

In uva-bi-sdad/community: Community Analysis Framework

library(xml2)

test_that("structure is intact", {
  raw <- page_menu(input_select("menu item", c("a", "b", "c")))
  expect_true(is.character(raw) && !any(raw == ""))
  html <- read_html(paste(raw, collapse = ""))
  children <- xml_child(html)
  expect_true(xml_length(children) == 1)
  children <- xml_child(xml_child(xml_child(xml_child(xml_child(children)))))
  expect_true(xml_length(children) == 2)
  children <- xml_child(children)
  expect_true(xml_length(children) == 3)
})

test_that("build environment is added to", {
  content <- sub(
    "menu1", "menu01",
    page_menu(input_select("menu item", c("a", "b", "c")), conditions = "lock: input"),
    fixed = TRUE
  )
  parts <- make_build_environment()
  eval(expression(
    page_menu(input_select("menu item", c("a", "b", "c")), conditions = "lock: input")
  ), parts)
  expect_identical(parts$body, content)
  expect_identical(parts$rules, list(list(
    condition = list(list(id = "input", type = "", value = "")),
    effects = list(lock = "menu01")
  )))
})