tests/testthat/test-361-userStructureVersion.R

In nutterb/redcapAPI: Interface to 'REDCap'

context("REDCap user structure versioning")

User <- exportUsers(rcon)

test_that("User structure contains api_modules starting at 14.0.3",
{
  expect_false("api_modules" %in% names(redcapUserStructure("1.0.3")))
  expect_false("api_modules" %in% names(redcapUserStructure("14.0.2")))
  expect_true("api_modules" %in% names(redcapUserStructure("14.0.3")))
})

test_that("User structure contains email_logging starting at 14.4.0",
{
  expect_false("email_logging" %in% names(redcapUserStructure("1.0.3")))
  expect_false("email_logging" %in% names(redcapUserStructure("14.3.4")))
  expect_true("email_logging" %in% names(redcapUserStructure("14.4.0")))
})

test_that("Prep user import pre 14.4.0 fails if given email_logging",
{
  local_reproducible_output(width = 200)
  old_rcon <- rcon
  old_rcon[['version']] <- function(){ "14.3.4" }

  expect_error(prepUserImportData(User, 
                                  rcon = old_rcon), 
               "api_modules")
  
  old_rcon[['version']] <- function(){ "14.4.0" }
  expect_no_error(prepUserImportData(User, rcon = old_rcon))
})

test_that("Prep user import pre 14.0.3 fails if given api_modules",
{
  local_reproducible_output(width = 200)
  old_rcon <- rcon
  old_rcon[['version']] <- function(){ "14.0.2" }
  
  User$email_logging <- NULL
  
  expect_error(prepUserImportData(User, 
                                  rcon = old_rcon), 
               "api_modules")
  
  old_rcon[['version']] <- function(){ "14.0.3" }
  expect_no_error(prepUserImportData(User, rcon = old_rcon))
})