tests/testthat/test-noti_banner.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

test_that("noti banner works", {

  noti_check <- shinyGovstyle::noti_banner(
    inputId = "banner", title_txt = "Important", body_txt = "Example text")

  expect_identical(
    noti_check$children[[1]]$children[[1]]$children[[1]],
    "Important"
  )

  expect_identical(
    noti_check$children[[2]]$children[[1]]$children[[1]],
    shiny::HTML("Example text")
  )

})

test_that("noti success banner works", {

  noti_check <- shinyGovstyle::noti_banner(
    inputId = "banner", title_txt = "Important", body_txt = "Example text",
    type = "success")

  expect_identical(
    noti_check$children[[1]]$children[[1]]$children[[1]],
    "Important"
  )

  expect_identical(
    noti_check$children[[2]]$children[[1]]$children[[1]],
    shiny::HTML("Example text")
  )

})