tests/testthat/test-zzz.R

In mnist91/origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

testthat::test_that("package initialization", {

  # reset origin options
  nms <- names(options())
  nms <- nms[grepl("^origin\\.", nms)]
  do.call(options, stats::setNames(lapply(nms, function(x) NULL), nms))
  testthat::expect_null(.onLoad())
  testthat::expect_null(.onLoad())

})