tests/testthat/test-fetch_survey.R

In sfirke/surveymonkey: Fetch survey results from the SurveyMonkey API and turn them into tidy data.frames

with_mock_api({
  data <- fetch_survey_obj(318754279, oauth_token = "temp") %>% suppressWarnings()
  test_that("fetch_survey_obj works as intended", {
    expect_equal(data$title, "my survey")
    expect_equal(data$language, "en")
    expect_equal(data$folder_id, "0")
    expect_equal(data$question_count, 2)
    expect_equal(data$page_count, 1)
    expect_equal(data$response_count, 2)
    expect_type(data, "list")
  })

  test_that("fetch_survey_obj fails without id", {
    expect_error(fetch_survey_obj(oauth_token = "temp"))
  })

  test_that("fetch_survey_obj fails without oauth", {
    expect_error(fetch_survey_obj(318754279, oauth_token = NULL))
  })
})