context("test-options.R -- default options")

test_that("sl3 options work as expected", {
  sl3:::.onLoad()
  sl3:::.onAttach()

  sl3Options()
  sl3Options("sl3.verbose")
  suppressMessages({expect_error(sl3Options("blahblah"))})
  suppressMessages({expect_error(sl3Options("blahblah", 5))})

  sl3Options("sl3.verbose", TRUE)
  sl3Options("sl3.verbose")
  sl3Options("sl3.verbose", FALSE)
})