tests/testthat/test-dtree_constructor.R

In elections.dtree: Ranked Voting Election Audits with Dirichlet-Trees

test_that("Constructor shows errors for invalid input.", {
  expect_error({
    dirtree(candidates = c(1, 2, 3)) # Candidates must be character vecs
  })
  expect_error({
    dirtree(candidates = c("A", "A", "B")) # Candidates must be unique
  })
  expect_error({
    dirtree(candidates = LETTERS, min_depth = 5, max_depth = 4)
  })
  expect_error({
    dirtree(candidates = LETTERS, a0 = -1) # invalid a0 (< 0)
  })
  expect_error({
    dirtree(candidates = LETTERS, vd = "dirichlet") # invalid vd flag
  })
})