tests/testthat/test-freshr.R

In freshr: Make R Environment Fresh Again

testthat::test_that("Dropping Variables Work", {

    var1 <- "a"
    var2 <- 2
    var3 <- rep(var1, 10)
    freshr::freshr(pkgexc = "testthat")
    testthat::expect_equal(length(ls(envir = .GlobalEnv)), 0)

})


testthat::test_that("Dropping Packages Work", {

    library(usethis)
    freshr::freshr(pkgexc = "testthat")
    testthat::expect_equal(names(sessionInfo()$otherPkgs), "testthat")

})