tests/testthat/test-403-exportSurveyReturnCode-ArgumentValidation.R

In nutterb/redcapAPI: Interface to 'REDCap'

context("Export Survey Return Code Argument Validation")

test_that(
  "Return an error if rcon is not a redcapConnection", 
  {
    expect_error(exportSurveyReturnCode(rcon = "not an rcon", 
                                  record = 1, 
                                  instrument = "survey"), 
                 "no applicable method for 'exportSurveyReturnCode'")
  }
)

test_that(
  "Return an error if record is not character(1)", 
  {
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = c("1", "2"), 
                                  instrument = "survey"), 
                 "Variable 'record': Must have length 1")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = c(1, 2), 
                                  instrument = "survey"), 
                 "'record': Must have length 1")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = TRUE, 
                                  instrument = "survey"), 
                 "'record': Must be of type 'character'")
  }
)

test_that(
  "Return an error if instrument is not character(1)", 
  {
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = c("survey", "survey2")),
                 "'instrument': Must have length 1")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = 123),
                 "'instrument': Must be of type 'character'")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey"), 
                 "Variable 'instrument': Must be a subset of")
  }
)

test_that(
  "Return an error if event is not character(1)", 
  {
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  event = c("event1", "event2")),
                 "'event': Must have length 1")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  event = 123),
                 "'event': Must be of type 'character'")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  event = "event_k"), 
                 "Variable 'event': Must be a subset of")
  }
)

test_that(
  "Return an error if repeat_instance is not integerish(1)", 
  {
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  repeat_instance = 1:2), 
                 "'repeat_instance': Must have length 1")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  repeat_instance = pi),
                 "'repeat_instance': Must be of type 'integerish'")
    
    expect_error(exportSurveyReturnCode(rcon, 
                                  record = 1, 
                                  instrument = "survey", 
                                  repeat_instance = "1"), 
                 "'repeat_instance': Must be of type 'integerish'")
  }
)