tests/testthat/test-056-redcapError.R

In redcapAPI: Interface to 'REDCap'

context("redcapError Functionality")

test_that(
  "Return null for certain errors", 
  {
    return_as_null <- c("ERROR: The value of the parameter \"content\" is not valid",
                        "ERROR: You cannot export arms for classic projects",
                        "ERROR: You cannot export events for classic projects",
                        "ERROR: You cannot export form/event mappings for classic projects")
    
    lapply(return_as_null, 
           function(x) expect_null(redcapError(x, "null")))
    
    # and now return them as errors
    
    lapply(return_as_null, 
           function(x) expect_error(redcapError(x, "error")))
  }
)


test_that(
  "Return data frame for an invalid file repository folder", 
  {
    expect_equal(
      redcapError("ERROR: The File Repository folder folder_id=1234 does not exist or else"), 
      FILE_REPOSITORY_EMPTY_FRAME
    )
  }
)


test_that(
  "Return preferred error message when experiencing a timeout", 
  {
    expect_error(redcapError("Connection reset by peer"), 
                 "A network error has occurred")
    expect_error(redcapError("Timeout was reached"), 
                 "A network error has occurred")
  }
)


test_that(
  "Return the error if it isn't one of the handled errors", 
  {
    response <- makeApiCall(rcon, body = list(content = 'no-content', 
                                              returnFormat = 'csv'))
    response$content <- charToRaw("my error")
    response$status_code <- 701

    expect_error(redcapError(response), 
                 "701: my error")
  }
)