tests/testthat/test-next-free-record-name.R

library(testthat)

credential  <- retrieve_credential_testing()

test_that("Smoke Test", {
  testthat::skip_on_cran()
  returned <-
    redcap_next_free_record_name(
      redcap_uri  = credential$redcap_uri,
      token       = credential$token,
      verbose     = FALSE
    )
  expect_type(returned, "character")
})

test_that("Numeric ID", {
  testthat::skip_on_cran()
  expected <- "6"
  observed <-
    redcap_next_free_record_name(
      redcap_uri  = credential$redcap_uri,
      token       = credential$token,
      verbose     = FALSE
    )

  expect_equal(observed, expected)
})

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

  credential_arm  <- retrieve_credential_testing(212L)

  expected <- "305"
  observed <-
    redcap_next_free_record_name(
      redcap_uri  = credential_arm$redcap_uri,
      token       = credential_arm$token,
      verbose     = FALSE
    )

  expect_equal(observed, expected)
})

test_that("Character ID", {
  testthat::skip_on_cran()

  credential_character <- retrieve_credential_testing(998L)

  expected <- "1"
  observed <-
    redcap_next_free_record_name(
      redcap_uri  = credential_character$redcap_uri,
      token       = credential_character$token,
      verbose     = FALSE
    )

  expect_equal(observed, expected)
})

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

  credential_dag <- retrieve_credential_testing(999L)

  expected <- "331-3"
  observed <-
    redcap_next_free_record_name(
      redcap_uri  = credential_dag$redcap_uri,
      token       = credential_dag$token,
      verbose     = FALSE
    )

  expect_equal(observed, expected)
})

test_that("bad token -Error", {
  testthat::skip_on_cran()
  expected_outcome_message <- "The REDCap determination of the next free record id failed\\."

  expect_message(
    observed <-
      redcap_next_free_record_name(
        redcap_uri    = credential$redcap_uri,
        token         = "BAD00000000000000000000000000000"
      ),
    expected_outcome_message
  )
  testthat::expect_equal(observed, character(0))
})
rm(credential)
OuhscBbmc/REDCapR documentation built on Sept. 15, 2024, 6:51 a.m.