tests/testthat/test-warning_text.R

test_that("warning works", {

  warn_check <- warning_text("warningId", "Test")

  expect_identical(
    warn_check$children[[2]]$children[[1]],
    "Test"
  )

})

Try the shinyGovstyle package in your browser

Any scripts or data that you put into this service are public.

shinyGovstyle documentation built on March 18, 2022, 7:24 p.m.