tests/testthat/test-uninstall.R

In thierrymoudiki/devtools: Tools to Make Developing R Packages Easier

test_that("uninstall() unloads and removes from library", {
  withr::local_temp_libpaths()

  # Install package
  install(test_path("testHelp"), quiet = TRUE)
  expect_true(require(testHelp, quietly = TRUE))
  expect_true("testHelp" %in% loaded_packages()$package)

  # Uninstall package
  uninstall(test_path("testHelp"), quiet = TRUE)
  expect_false("testHelp" %in% loaded_packages()$package)
  expect_warning(
    expect_false(require(testHelp, quietly = TRUE)),
    paste0("there is no package called ", sQuote("testHelp"))
  )
})