inst/apps/169-prerender/tests/testthat/test-shinyjster-custom.R

In rstudio/shinycoreci: CI Testing for shiny

# This is testing an R behavior
# Testing this over multiple browsers has no advantage
test_that("169 clears registered paths between apps", {
  app <- "../../"

  # delete cache file
  cache_file <- file.path(app, "169-prerender-a", "index.html")
  if (file.exists(cache_file)) {
    unlink(cache_file)
  }
  on.exit({
    if (file.exists(cache_file)) {
      unlink(cache_file)
    }
  }, add = TRUE)

  shinyjster::test_jster(
    apps = c(
      file.path(app, "169-prerender-a", "index.Rmd"),
      file.path(app, "169-prerender-b")
    ),
    type = "lapply",
    browsers = shinyjster::selenium_chrome()
  )
})