tests/testthat/test_unload.R

In mlr-org/mlr3forecasting: Forecasting for 'mlr3'

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