packrat/lib/x86_64-w64-mingw32/3.6.1/rlang/tests/testthat/test-events.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

context("events")

test_that("can't add an exit event at top-level", {
  expect_true(TRUE)
  # This can only be tested interactively
  if (FALSE) {
    local_exit(1)  # Can't add an exit event at top level
  }
})

test_that("can add an exit event within a non-top-level global frame", {
  local(envir = global_env(), {
    `_x` <- list()
    rlang:::local_exit(`_x` <- c(`_x`, "bar"))
    `_x` <- c(`_x`, "foo")
  })

  expect_identical(env_get(global_env(), "_x"), list("foo", "bar"))
  env_unbind(global_env(), "_x")
})