tests/testthat/test-getSurveys.R

In JasperHG90/qualtRics: Download Qualtrics Survey Data

context("Get a list of surveys that the user has access to on Qualtrics")

# Test - use mock API from httptest package
with_mock_api({
  test_that("getSurveys() returns a data frame with columns 'id', 'name', 'ownerId', 'lastModified', 'isActive' columns", { # nolint
    testthat::skip_on_cran()
    registerOptions(root_url="t.qualtrics.com", api_token="1234")
    # Get survey
    surveys <- getSurveys()
    # TESTS
    expect_that(names(surveys),
                is_identical_to(c("id","name","ownerId","lastModified","isActive"))) # nolint
    expect_equal(nrow(surveys), 1)
    expect_type(surveys, "list")
  })
})