tests/testthat/test-test_helpers.R

In ThinkR-open/shinytemplate: A Framework for Robust Shiny Applications

test_that("test expect_shinytag", {
  expect_equal(
    capture_output(
      expect_shinytag(favicon("jean"))
    ),
    ""
  )
  expect_error(
    expect_shinytag("pierre")
  )
})

test_that("test expect_shinytaglist", {
  expect_equal(
    capture_output(
      expect_shinytaglist(
        shiny::tagList()
      )
    ),
    ""
  )
  expect_error(
    expect_shinytaglist("test")
  )
})

test_that("test expect_shinytag", {
  testthat::with_mocked_bindings(
    testthat_expect_snapshot = function(...) {
      return(TRUE)
    },
    {
      expect_message(
        expect_html_equal(
          shiny::tagList(),
          html = "test"
        )
      )
      expect_true(
        expect_html_equal(
          shiny::tagList()
        )
      )
    }
  )
})