tests/testthat/test-DEG_EN_no-q3.R

In fmhoeger/psyquest: LongGold psychTestR questionnaires

context("DEG")
library(psychTestR)

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

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

app$expect_ui_text("We are interested in getting the most accurate information possible from you today. Are you able to give your best shot with the following tests and questions today? Yes No")
app$click("btn1_text")

app$expect_ui_text("Do you have any kind of hearing impairment? (I.e., do you have any problems with your hearing?) No Yes")
app$click("btn2_text")

app$expect_ui_text("What is your gender? female male other rather not say")
app$click("btn1_text")

app$expect_ui_text("What is your nationality? UK USA Bulgaria China Cuba Dominican Republic El Salvador France Germany Guatemala India Ireland Italy Lithuania Mexico Netherlands Nigeria Pakistan Philippines Poland Portugal Romania Russia South Africa South Korea Spain Vietnam Other nationality Continue")
app$click_next()

app$expect_ui_text("In which country have you spent most years of your life? UK USA Bulgaria China Cuba Dominican Republic El Salvador France Germany Guatemala India Ireland Italy Lithuania Mexico Netherlands Nigeria Pakistan Philippines Poland Portugal Romania Russia South Africa South Korea Spain Vietnam Other country Continue")
app$click_next()

app$expect_ui_text("What is your first language? English Arabic Bulgarian Chinese Dutch French German Haitian Hindi Italian Korean Lithuanian Polish Portuguese Punjabi Romanian Russian Spanish Tagalog Vietnamese Other language Continue")
app$setInputs(dropdown = "ar")
app$click_next()

app$expect_ui_text("What is your second language that is also spoken at home (if you have one)? None English Arabic Bulgarian Chinese Dutch French German Haitian Hindi Italian Korean Lithuanian Polish Portuguese Punjabi Romanian Russian Spanish Tagalog Vietnamese Other language Continue")
app$setInputs(dropdown = "vi")
app$click_next()

app$expect_ui_text("When were you born? Month Select month, please! January February March April May June July August September October November December Year Select year, please! 2013 2012 2011 2010 2009 2008 2007 2006 2005 2004 2003 2002 2001 2000 1999 1998 1997 1996 1995 1994 1993 1992 1991 1990 1989 1988 1987 1986 1985 1984 1983 1982 1981 1980 1979 1978 1977 1976 1975 1974 1973 1972 1971 1970 1969 1968 1967 1966 1965 1964 1963 1962 1961 1960 1959 1958 1957 1956 1955 1954 1953 1952 1951 1950 1949 1948 1947 1946 1945 1944 1943 1942 1941 1940 1939 1938 1937 1936 1935 1934 1933 1932 1931 1930 Continue")
app$setInputs(month = "2")
app$setInputs(year = "1999")
app$click_next()

app$expect_ui_text("Are you right-handed left-handed ambidextrous (use both hands equally)")
app$click("btn1_text")

app$expect_ui_text("Which hand do you normally use for writing? the right hand the left hand both hands equally")
app$click("btn2_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("DEG"))
expect_equal(
  results[["DEG"]],
  list(
    q1 = "btn1_text",
    q2 = "btn2_text",
    q4 = "btn1_text",
    q5 = "UK",
    q6 = "UK",
    q7 = "ar",
    q8 = "vi",
    q9 = c("2", "1999"),
    q10 = "btn1_text",
    q11 = "btn2_text",
    'Best Shot' = 1,
    'Hearing Impairment' = 2,
    'Type of Hearing Impairment' = "",
    Gender = 1,
    Age = 263,
    Nationality = "UK",
    'Country Formative Years' = "UK",
    'First Language' = "ar",
    'Second Language' = "vi",
    Handedness = c(1, 2)
  )
)

app$stop()