tests/testthat/test-111-switchDag-ArgumentValidation.R

In nutterb/redcapAPI: Interface to 'REDCap'

context("Switch DAGs Argument Validation")

test_that(
  "Return an error if rcon is not a redcapConnection", 
  {
    local_reproducible_output(width = 200)
    expect_error(switchDag("not an rcon", 
                           "test_dag_1"), 
                 "no applicable method for 'switchDag'")
  }
)

test_that(
  "Return an error if dag is not character(1)", 
  {
    local_reproducible_output(width = 200)
    expect_error(switchDag(rcon, 
                           c("test_dag_1", "test_dag_2")),
                 "'dag': Must have length 1")
    expect_error(switchDag(rcon, 
                           123), 
                 "'dag': Must be of type 'character'")
  }
)

test_that(
  "Return an error if dag is not in the subset of DAGs in the project", 
  {
    local_reproducible_output(width = 200)
    expect_error(switchDag(rcon, 
                           dag = "Garfield likes Lasagna"), 
                 "'dag': Must be a subset of")
  }
)