tests/testthat/test-SOS_DE_minimum.R

In fmhoeger/psyquest: LongGold psychTestR questionnaires

context("SOS")
library(psychTestR)

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

# Enter id
app$expect_ui_text("Bitte gib Deine ID ein Weiter")
app$set_inputs(p_id = "abcde")
app$click_next()

# Intro
app$expect_ui_text("Bitte denke über die Hörtests und Fragen nach, die du gerade beantwortet hast. Klicke auf die Aussagen, die deiner Meinung nach am besten zutreffen. Weiter")
app$click_next()

app$expect_ui_text("Frage 1 von 10 Es war mir wichtig, diese Tests gut zu machen. Stimme überhaupt nicht zu Stimme nicht zu Weder noch Stimme zu Stimme sehr zu")
app$click("btn1_text")

app$expect_ui_text("Frage 2 von 10 Ich habe mir bei diesen Tests Mühe gegeben. Stimme überhaupt nicht zu Stimme nicht zu Weder noch Stimme zu Stimme sehr zu")
app$click("btn1_text")

app$click("btn5_text")
app$click("btn5_text")
app$click("btn1_text")
app$click("btn1_text")
app$click("btn5_text")
app$click("btn1_text")
app$click("btn5_text")
app$click("btn1_text")

app$expect_ui_text("Deine Ergebnisse wurden gespeichert. Du kannst das Browserfenster jetzt schließen.")

results <- app$get_results() %>% as.list()
expect_equal(names(results), c("SOS"))
expect_equal(
  results[["SOS"]],
  list(
    q1 = "btn1_text",
    q2 = "btn1_text",
    q3 = "btn5_text",
    q4 = "btn5_text",
    q5 = "btn1_text",
    q6 = "btn1_text",
    q7 = "btn5_text",
    q8 = "btn1_text",
    q9 = "btn5_text",
    q10 = "btn1_text",
    Importance = 1,
    Effort = 1
  )
)

app$stop()