tests/testthat/test-recipients.R

with_mock_api({

  test_that("retrieving recipients fails when none available", {

    collector <- get_collectors(318754279, oauth_token = "temp") %>% suppressWarnings()
    expect_error(get_recipients(collector$id[1]))

  })

})
sfirke/surveymonkey documentation built on Oct. 14, 2022, 6:18 a.m.