tests/testthat/test-class.R

test_that("erroneous backend throws error message", {
  p1 <- c(0.5, 0.5, 0.5)
  design <- setup_fujikawa_x(k = 3, p0 = 0.2)
  expect_error(set_backend(design = design,
                           backend = "typo"))
})

Try the baskwrap package in your browser

Any scripts or data that you put into this service are public.

baskwrap documentation built on March 19, 2026, 5:09 p.m.