tests/testthat/test-parse_responses.R

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

with_mock_api({

  test_that("all pages works as intended", {
    responses <- get_responses(318754279, oauth_token = "temp", all_pages = TRUE) %>% suppressWarnings()
    parsed <- parse_respondent_list(responses)
    expect_true("data.frame" %in% class(parsed))

  })
})