tests/testthat/test_sidebar_panes.R

In NCC-CNC/wheretowork: Interactive Systematic Conservation Planning Application

context("sidebar panes")

test_that("newSolutionSidebarPane", {
  # create object
  x <-
    newSolutionSidebarPane(
      id = "sidebarid", solutionSettingsId = "ssId"
    )
  # run tests
  h <- rvest::read_html(as.character(x))
  ## sidebar
  ## solution settings
  expect_length(rvest::html_elements(h, "#ssId"), 1)
  expect_identical(
    xml2::xml_name(rvest::html_elements(h, "#ssId")),
    "div"
  )
  expect_identical(
    xml2::xml_attr(
      attr = "class",
      x = rvest::html_elements(h, "#ssId")
    ),
    "solutionSettings html-widget html-widget-output shiny-report-size html-fill-item"
  )
})