tests/testthat/test-HOP_EN_minimum.R

In fmhoeger/psyquest: LongGold psychTestR questionnaires

context("HOP")
library(psychTestR)

app <- AppTester$new("apps/HOP_EN")

app$expect_ui_text("Please enter your ID Continue")
app$set_inputs(p_id = "abcde")
app$click_next()

app$expect_ui_text("Please select the answer that best describes how you think about yourself right now. Please take a few moments to focus on yourself and what is going on in your life at this moment. Continue")
app$click_next()

app$expect_ui_text("Question 1 out of 6 I think I am doing pretty well. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Question 2 out of 6 I can think of many ways to get the things in life that are most important to me. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Question 3 out of 6 I am doing just as well as other kids my age. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Question 4 out of 6 When I have a problem, I can come up with lots of ways to solve it. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Question 5 out of 6 I think the things I have done in the past will help me in the future. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Question 6 out of 6 Even when others want to quit, I know I can find ways to solve the problem. None of the time A little of the time Some of the time A lot of the time Most of the time All of the time")
app$click("btn1_text")

app$expect_ui_text("Your results have been saved. You can close the browser window now.")

results <- app$get_results() %>% as.list()

expect_equal(names(results), c("HOP"))
expect_equal(
  results[["HOP"]],
  list(
    q1 = "btn1_text",
    q2 = "btn1_text",
    q3 = "btn1_text",
    q4 = "btn1_text",
    q5 = "btn1_text",
    q6 = "btn1_text",
    General = 1
  )
)

app$stop()