tests/testthat/reactor-crrry_good.R

In yonicd/reactor: Unit Testing for Shiny Reactivity

testthat::context("testing reactivity on a good app with crrry")

# We run a test with the expectation that the hist tag will be triggered once at app startup and once after input$n is updated

testthat::describe('good reactive',{

  test <- crrry::CrrryProc$new(
    chrome_bin = pagedown::find_chrome(),
    shiny_port = httpuv::randomPort(),
    chrome_port = httpuv::randomPort(),
    fun = "shiny::runApp(appDir = system.file('examples/good_app.R',package = 'reactor'))",
    pre_launch_cmd = glue::glue("dir.create('{reactor_path()}');whereami::set_whereami_log('{reactor_path()}')")
  )
  
  test$wait_for_shiny_ready()
  test$shiny_set_input('n',900)
  test$wait_for_shiny_ready()
  hist_counter <- reactor::read_reactor()
  test$stop()
  
  it('reactive hits in plot reactive chunk',{
    reactor::expect_reactivity(object = hist_counter, tag = 'hist',count =  2)
  })
  
})