tests/testthat/test_unload.R

In mlr3learners: Recommended Learners for 'mlr3'

test_that("unloading leaves no trace", {
  library(mlr3learners)
  n_learners = length(learners)
  n_total = length(mlr_learners$keys())
  unloadNamespace("mlr3learners")
  n_mlr = length(mlr_learners$keys())
  expect_true(n_learners == n_total - n_mlr)
})