tests/testthat/old/test-resume-PNTCAT_notLogged.R

In rbcavanaugh/pnt: Computer adaptive forms of the Philadelphia Naming Test

test_that("resume PNT-CAT last response not logged", {

  #########################################################
  # Get app to results page
  #########################################################

  app <- ShinyDriver$new(here::here(), seed = 1)
  #app$setInputs(welcome_next = "click")
  app$setInputs(administer_test = "click")
  
  app$setInputs(resume_question = "resume")
  
  app$uploadFile(file_incomplete = here::here("tests", "testthat", "files", "resume_pntcat175_key.csv"))
  app$setInputs(widget_next = "click")
  
  #app$setInputs(retest = "1")
  app$setInputs(widget_next = "click")
  
  app$setInputs(widget_next = "click")
  
  app$setInputs(resume = "click")
  
  app$findElement('button[data-dismiss="modal"]')$click()
  
  val = app$getAllValues()

  #########################################################
  # TESTS
  #########################################################
  # the slide shown when resuming should be the key. which is slide 117
  testthat::expect_true(grepl('src="slides/Slide117.jpeg"', val$output$slides_tab$html))
  # also test that the number of items is correct later on. 
})