inst/apps/168-supporting-r-dir/tests/testthat/test-server.R

In rstudio/shinycoreci: CI Testing for shiny

test_that("counter works", {
  withr::with_options(
    list(shiny.autoload.r = TRUE),
    testServer(counterServer, {
      inc <- function(x) if (is.null(x)) 0 else x+1
      expect_equal(count(), 0)
      session$setInputs(button = inc(input$button))
      expect_equal(count(), 1)
      expect_equal(output$out, "1")
      expect_equal(session$returned(), 1)
    })
  )
})