conceptualDisambiguation/tests/testthat/test-shinytest2.R

In emjun/tisaner: Authoring Statistical Models from Conceptual Models

library(shinytest2)

test_that("Initial snapshot values are consistent", {
  app <- AppDriver$new(name = "init")
  app$expect_values()
})


test_that("Module values are consistent", {
  app <- AppDriver$new(name = "mod")
  app$click("examplemodule1-button")
  app$click("examplemodule1-button")
  app$expect_values()
})