tests/testthat/test-ASM_module.R

In formods: 'Shiny' Modules for General Tasks

sess_res = suppressMessages(ASM_test_mksession(session=list()))


test_that("ASM -- Fetch state ", {
  state   = sess_res$state
  expect_true(state$ASM$isgood)
  expect_true(sess_res$isgood)
})

test_that("ASM -- Saving and loading app state ", {

old_wd = getwd()
tmp_wd = tempdir()
setwd(tmp_wd)
on.exit( setwd(old_wd))
sources = c(system.file(package="formods", "preload", "UD_preload.yaml"),
            system.file(package="formods", "preload", "ASM_preload.yaml"),
            system.file(package="formods", "preload", "DW_preload.yaml"),
            system.file(package="formods", "preload", "FG_preload.yaml"))

sess_res = suppressMessages(FM_app_preload(session=list(), sources=sources))

session = sess_res$session
state   = sess_res$all_sess_res$ASM$state

# Testing with no pll
save_res = suppressMessages(ASM_save_state(state = state, session = session, file_path=file.path(getwd(),'state.zip')))
expect_true(save_res[["isgood"]])

mkp_res  = suppressMessages(FM_mk_app_preload(sess_res$session))
expect_true(mkp_res[["isgood"]])

# Testing with pll
save_res = suppressMessages(ASM_save_state(state = state, session = session, file_path=file.path(getwd(),'state.zip'), pll=mkp_res[["yaml_list"]]))
expect_true(save_res[["isgood"]])

load_res = suppressMessages(ASM_load_state(state = state, session = session, file_path=file.path(getwd(),'state.zip')))
expect_true(load_res[["isgood"]])

setwd(old_wd)
})