tests/testthat/test-zzzzz.R

In RxODE: Facilities for Simulating from ODE-Based Models

rxodeTest(
  {
    context("Cleanly unloads all dlls")
    test_that("Cleanly unloads all dlls", {
      val <- rxUnloadAll()
      if (identical(val, list())) {
        expect_equal(val, list())
      } else {
        warning("did not unload everything")
      }
    })
  },
  test = "focei"
)