tests/testthat/test-gc.R

In nlmixr2/rxode2: Facilities for Simulating from ODE-Based Models

##     options(rxode2.unload.unused = TRUE)
##     test_that("Check garbage collection unloads DLLs", {
##       options(rxode2.unload.unused = TRUE)

##       ode <- rxode2({
##         b <- -1
##         d / dt(X) <- a * X + Y * Z
##         d / dt(Y) <- b * (Y - Z)
##         d / dt(Z) <- -X * Y + c * Y - Z
##       })

##       name <- basename(rxDll(ode))
##       name <- substr(name, 0, nchar(name) - nchar(.Platform$dynlib.ext))

##       expect_false(is.null(getLoadedDLLs()[[name]]))
##       Sys.sleep(0.5)
##       gc()
##       Sys.sleep(0.5)
##       expect_false(is.null(getLoadedDLLs()[[name]]))
##       rm(ode)
##       Sys.sleep(0.5)
##       gc()
##       Sys.sleep(0.5)
##       expect_true(is.null(getLoadedDLLs()[[name]]))

##       options(rxode2.unload.unused = FALSE)
##     })
##     options(rxode2.unload.unused = FALSE)