tests/testthat/test-survey-link-export-oneshot.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

library(testthat)

credential   <- retrieve_credential_testing(817L)
record       <- 1
instrument   <- "participant_morale_questionnaire"

test_that("Smoke Test", {
  testthat::skip_on_cran()

  suppressMessages({
    returned_object <-
      REDCapR::redcap_survey_link_export_oneshot(
        record         = record,
        instrument     = instrument,
        redcap_uri     = credential$redcap_uri,
        token          = credential$token,
        verbose        = TRUE
      )
  })
  expect_type(returned_object, "list")
})

test_that("Vanilla", {
  testthat::skip_on_cran()

  result <-
    REDCapR::redcap_survey_link_export_oneshot(
      record         = record,
      instrument     = instrument,
      redcap_uri     = credential$redcap_uri,
      token          = credential$token,
      verbose        = FALSE
    )

  expect_equal(result$survey_link, "https://bbmc.ouhsc.edu/redcap/surveys/?s=8KuzSLMHf6")
  expect_true(result$success)
  expect_equal(result$status_code, 200L)
  expect_equal(result$instrument, "participant_morale_questionnaire")
  expect_equal(result$records_affected_count, 1L)
  expect_equal(result$affected_ids, c("1"))
})

test_that("Nonexistent Record ID", {
  testthat::skip_on_cran()

  record_bad <- -1

  result <-
    REDCapR::redcap_survey_link_export_oneshot(
      record         = record_bad,
      instrument     = instrument,
      redcap_uri     = credential$redcap_uri,
      token          = credential$token,
      verbose        = FALSE
    )

  expect_equal(result$survey_link, character(0))
  expect_false(result$success)
  expect_equal(result$status_code, 400L)
  expect_equal(result$instrument, "participant_morale_questionnaire")
  expect_equal(result$records_affected_count, 0L)
  expect_equal(result$affected_ids, character(0))
  expect_equal(result$raw_text, "ERROR: The record '-1' does not exist")
})

rm(credential, record, instrument)