tests/testthat/test-subcontents_links.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

#Test custom links
test_that("subcontents_links", {
  subcontents_check <-
    subcontents_links(c("Here are my", "Subcontents Links!"), c(NA, NA))

  expect_identical(subcontents_check$children[[1]][[2]]$children[[2]]$attribs$href,
                   "#subcontents_links")
})



# Test custom subcontents links
test_that("custom subcontents_links", {
  custom_subcontents_check <-
    subcontents_links(c("Here are my", "Subcontents Links!"), c(NA, "custom_link"))

  expect_identical(custom_subcontents_check$children[[1]][[2]]$children[[2]]$attribs$href,
                   "#custom_link")
})