tests/testthat/test-lemur.control.R

In ctgrubb/lemur.pack: Package for Team Lemur functional codebase

test_that(
  "lemur.control; nchains test",
  {
    expect_error(lemur.control(nchains = -1))
    expect_error(lemur.control(nchains = 0))
    expect_error(lemur.control(nchains = ""))
    expect_error(lemur.control(nchains = factor("")))
  }
)

test_that(
  "lemur.control; nsteps test",
  {
    expect_error(lemur.control(nsteps = -1))
    expect_error(lemur.control(nsteps = 0))
    expect_error(lemur.control(nsteps = ""))
    expect_error(lemur.control(nsteps = factor("")))
  }
)

test_that(
  "lemur.control; burnin test",
  {
    expect_error(lemur.control(burnin = -1))
    expect_error(lemur.control(burnin = 0))
    expect_error(lemur.control(burnin = ""))
    expect_error(lemur.control(burnin = factor("")))
  }
)

test_that(
  "lemur.control; thin test",
  {
    expect_error(lemur.control(thin = -1))
    expect_error(lemur.control(thin = 0))
    expect_error(lemur.control(thin = ""))
    expect_error(lemur.control(thin = factor("")))
  }
)