tests/testthat/test-resume-PNT175-std-logged.R

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

test_that("resume standard PNT 175", {

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

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

  #########################################################
  # TESTS
  #########################################################
  # slide 25 is strawberries... should be shown next when uploading this file sicne answer for grapes included
  testthat::expect_true(grepl('src="slides/Slide25.jpeg"', val$output$slides_tab$html))
  
})