tests/testthat/test-DW_module.R

In formods: 'Shiny' Modules for General Tasks

sess_res = suppressMessages(DW_test_mksession(session=list()))


test_that("DW -- Fetch state", {
  # Test data:
  state = sess_res$state
  expect_true(state$DW$isgood)
  expect_true(sess_res$isgood)
})