tests/testthat/test-getSurvey_reads_stored_survey.R

In JasperHG90/qualtRics: Download Qualtrics Survey Data

test_that("getSurvey() reads a stored survey in temporary directory if exists", { # nolint
  # Register dummy key
  qualtRics::registerOptions(api_token="1234",
                             base_url="https://yourdatacenterid.qualtrics.com")
  # Store RDS file
  data <- "SUCCESS"
  curr.wd <- getwd()
  setwd(tempdir())
  on.exit(setwd(curr.wd))
  saveRDS(data, "surveyID.rds")
  # Query with all options
  expect_message(qualtRics::getSurvey("surveyID"),
                 "Found an earlier download for survey with id surveyID. Loading this file.
Set 'forceRequest' to TRUE if you want to override this") # nolint

})