tests/testthat/test-create-load-navigate-inca1hc.R

In oc1lojo/rccshiny: Shiny Apps for RCC

library(shinytest)

appdir <- file.path("apps", "sv", "inca1hc")

test_that("creating and loading inca1hc works", {
  skip_on_os("linux")

  expect_pass(testApp(appdir, "load-app", compareImages = FALSE, interactive = FALSE, suffix = shinytest_suffix()))
})

test_that("creating, loading and navigating inca1hc works", {
  skip_on_os("linux")

  expect_pass(testApp(appdir, "nav-inca1", compareImages = FALSE, interactive = FALSE, suffix = shinytest_suffix()))
})