tests/testthat/test-sandbox.R

context("Sandbox")

test_that("the sandbox can be activated and deactivated", {

  syslib <- .Library
  renv_sandbox_activate()
  expect_false(identical(syslib, .Library))
  renv_sandbox_deactivate()
  expect_true(identical(syslib, .Library))

})

test_that("multiple attempts to activate sandbox are handled", {

  syslib <- .Library
  renv_sandbox_activate()
  renv_sandbox_activate()
  renv_sandbox_activate()
  expect_false(identical(syslib, .Library))
  renv_sandbox_deactivate()
  expect_true(identical(syslib, .Library))

})
slopp/renv documentation built on July 6, 2019, 12:08 a.m.