tests/testthat/test-examples.R

In OncoBayes2: Bayesian Logistic Regression for Oncology Dose-Escalation Trials

context("examples")

## run examples with super-slim sampling to make sure they actually
## run
## DO NOT USE fake_sampling()

if (FALSE) {
  ## does not run atm for odd reasons
  test_that(
    "blrm_exnex example runs",
    example(blrm_exnex, package = "OncoBayes2", run.dontrun = TRUE)
  )
  test_that(
    "prior_summary example runs",
    example(prior_summary.blrmfit, package = "OncoBayes2", run.dontrun = TRUE)
  )
  test_that(
    "posterior_linpred example runs",
    example(
      posterior_linpred.blrmfit,
      package = "OncoBayes2",
      run.dontrun = TRUE
    )
  )
  test_that(
    "posterior_predict example runs",
    example(
      posterior_predict.blrmfit,
      package = "OncoBayes2",
      run.dontrun = TRUE
    )
  )
  test_that(
    "posterior_interval example runs",
    example(
      posterior_interval.blrmfit,
      package = "OncoBayes2",
      run.dontrun = TRUE
    )
  )
  test_that(
    "predictive_interval example runs",
    example(
      predictive_interval.blrmfit,
      package = "OncoBayes2",
      run.dontrun = TRUE
    )
  )
}

test_that("example_model() lists expected models", {
  expect_set_equal(example_model(), names(example_cache))
})