tests/testthat/test-summary.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

test_that("summary list works", {
  headers <- c(
    "Name",
    "Date of birth",
    "Contact information",
    "Contact details"
  )
  info <- c(
    "Sarah Philips",
    "5 January 1978",
    "72 Guild Street <br> London <br> SE23 6FH",
    "07700 900457 <br> sarah.phillips@example.com"
  )

  summary_check <- gov_summary("sumID", headers, info, action = FALSE)

  expect_equal(length(summary_check$children[[1]]), 4)

  summary_check <- gov_summary(
    "sumID",
    headers,
    info,
    action = TRUE,
    border = FALSE
  )

  expect_identical(
    summary_check$children[[1]]$Name$children[[3]][[3]][[1]][[1]],
    "button"
  )
})