tests/testthat/test-gov_layout.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

test_that("default works", {
  layout_test <- gov_layout()

  expect_identical(
    layout_test$attribs$id,
    "main"
  )

  expect_identical(
    layout_test$attribs$class,
    "govuk-width-container  govuk-main-wrapper"
  )

  expect_identical(
    layout_test$children[[1]]$attribs$class,
    "govuk-grid-column-full"
  )

})