tests/testthat/test-retrieve-credential-mssql.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

library(testthat)

pid_read           <- 153L #This project is for testing only reading from the server.

test_that("Missing DSN", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The 'dsn' parameter can be missing only if a 'channel' has been passed to 'retrieve_credential_mssql'."

  expect_error(
    regexp = expected_message,
    object = REDCapR::retrieve_credential_mssql(pid_read, "dev")
  )
})

test_that("Bad project ID", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The 'project_id' parameter must contain at least one digit, and only digits."

  #Digits with letters
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(-2L, "dev")
  )
})

test_that("Bad instance name", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The 'instance' parameter must contain only letters, numbers, and underscores.  It may optionally be enclosed in square brackets."

  #dashes #1
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance="234 --DROP tbl_bobby")
  )

  #dashes #2
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance="234 --332")
  )

  #Blank
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance="")
  )
})

test_that("pid wrong length", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `project_id` parameter should contain exactly one element."

  #empty
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(project_id=integer(0), instance="234")
  )

  #too many
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(project_id=integer(2), instance="234")
  )
})
test_that("instance wrong length", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `instance` parameter should contain exactly one element."

  #empty
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance=character(0))
  )

  #too many
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance=character(2))
  )
})
test_that("dsn wrong length", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `dsn` parameter should contain at most one element."

  #too many
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance = "dev", dsn = character(2))
  )
})

test_that("bad type: project_id", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `project_id` parameter should be an integer type.  Either append an `L` to the number, or cast with `as.integer\\(\\)`."

  #character
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(character(1), instance="dev")
  )

  #numeric
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(numeric(1), instance="dev")
  )
})
test_that("bad type: instance", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `instance` parameter should be a character type.  Either enclose in quotes, or cast with `as.character\\(\\)`."

  #integer
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance=integer(1))
  )

  #numeric
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance=numeric(1))
  )
})
test_that("bad type: DSN name", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `dsn` parameter be a character type, or missing or NULL.  Either enclose in quotes, or cast with `as.character\\(\\)`."

  #integer
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(dsn=integer(1), pid_read, instance="dev")
  )

  #numeric
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(dsn=integer(1), pid_read, instance="dev")
  )
})

test_that("bad type: channel ", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed(pkg="odbc")
  expected_message <- "The `channel` parameter be a `DBIConnection` type, or NULL."

  #integer
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance="dev", channel=integer(1))
  )

  #numeric
  expect_error(
    regexp = expected_message,
    REDCapR::retrieve_credential_mssql(pid_read, instance="dev", channel=numeric(1))
  )
})