revdep/library.noindex/baker/new/shiny/app_template/tests/testthat/test-examplemodule.R

In zhenkewu/baker: "Nested Partially Latent Class Models"

# See ?testServer for more information
testServer(exampleModuleServer, {
  # Set initial value of a button
  session$setInputs(button = 0)

  # Check the value of the reactiveVal `count()`
  expect_equal(count(), 1)
  # Check the value of the renderText()
  expect_equal(output$out, "1")

  # Simulate a click
  session$setInputs(button = 1)

  expect_equal(count(), 2)
  expect_equal(output$out, "2")
})