tests/testthat/test-server.R

In rstudio/shiny-testing-gha-example: Test Shiny server code using GitHub Actions

context("app")

testServer(expr = {
  # Set the `size` slider and check the output
  session$setInputs(size = 6)
  expect_equal(output$sequence, "1 2 3 4 5 6")

  session$setInputs(size = 12)
  expect_equal(output$sequence, "1 10 11 12 2 3 4 5 6 7 8 9")

})