tests/testthat/test-assemble.R

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

with_mock_api({
  test_that("survey data is returned as expected", {
    survey <- fetch_survey_obj(318754279, oauth_token = "temp") %>% suppressWarnings()
    survey <- parse_survey(survey, oauth_token = "temp") %>% suppressWarnings()
    expect_equal(names(survey), c("survey_id", "collector_id", "respondent_id", "date_created",
                                  "date_modified", "response_status", "ip_address", "How many pets do you have?",
                                  "What are the names of your pets?"))
    expect_true("data.frame" %in% class(survey))
    expect_type(survey$survey_id, "double")
    expect_type(survey$collector_id, "character")
    expect_type(survey$respondent_id, "character")
    expect_true("POSIXct" %in% class(survey$date_created))
    expect_true("POSIXct" %in% class(survey$date_modified))
    expect_type(survey$response_status, "character")
    expect_type(survey$ip_address, "character")
    expect_true(is.factor(survey$`How many pets do you have?`))
    expect_true(is.character(survey$`What are the names of your pets?`))
    expect_true(!all(is.na(survey)))
  })
})

with_mock_api({
  test_that("response count == 0 shows a warning", {
    oauth <- "temp"
    survey <- fetch_survey_obj(318754279, oauth_token = oauth) %>% suppressWarnings()
    survey$response_count <- 0
    expect_warning( parse_survey(survey, oauth_token = "temp"))

  })
})


no_dupes <- cars[1, ]
dupes <- rbind(no_dupes, no_dupes)

test_that("detect duplication", {
  expect_true(contains_duplicates(dupes))
  expect_false(contains_duplicates(no_dupes))
})

test_that("keep duplication", {
  expect_warning(res <- duplicate_keep(dupes))
  expect_identical(res, dupes)
  expect_warning(res <- duplicate_keep(no_dupes), NA) # expect no warning
  expect_identical(res, no_dupes)
})

test_that("drop duplication", {
  expect_warning(res <- duplicate_drop(dupes))
  expect_identical(res, no_dupes)
  expect_warning(res <- duplicate_keep(no_dupes), NA) # expect no warning
  expect_identical(res, no_dupes)
})

test_that("error on duplicates", {
  expect_error(duplicate_error(dupes))
  expect_error(duplicate_error(no_dupes), NA) # expect no error
})