context("environment driver")

## There was a bug in reusing an environment driver caused the
## destruction of all data held in an environment storr.
test_that("shared environment regression check", {
  st1 <- storr_environment()
  st1$set("a", 1)

  st2 <- storr(driver_environment(st1$driver$envir))
  expect_identical(st1$list(), "a")
  expect_identical(st2$list(), "a")
  st2$set("b", 2)

  st3 <- storr_environment(st1$driver$envir)
  cmp <- sort(c("a", "b"))
  expect_identical(sort(st1$list()), cmp)
  expect_identical(sort(st2$list()), cmp)
  expect_identical(sort(st3$list()), cmp)
})

test_that("missing namespace error", {
  ## Avoid a regression and interaction between ls() and force
  expect_error(storr_environment()$list(xxxx),
               "'xxxx' not found")
})


test_that("no checking", {
  st <- storr_environment()
  expect_error(
    st$check(),
    "This storr (with driver type 'environment') does not support checking",
    fixed = TRUE)
})