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

In redcapAPI: Interface to 'REDCap'

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")
  }
)