tests/testthat/test_unload.R

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)
})
mlr-org/mlr3learners documentation built on Feb. 16, 2025, 9:34 a.m.