tests/testthat/test-turbo-assets.R

In tjpalanca/hotwire.R: Hotwire for R

test_that("turbo_assets() initializes", {

  turbo <- expect_class(turbo_assets(), "shiny.tag.list")

})

test_that("turbo_assets() test cases", {

  turbo <- expect_class(turbo_assets(progress_bar = FALSE), "shiny.tag.list")
  expect_string(
    as.character(turbo[[2]][[1]]$children[[1]]),
    "visibility: hidden;"
  )

})