context("checkEnvironment")

test_that("checkEnvironment", {
  myobj = new.env()
  expect_succ_all(Environment, myobj)
  myobj = list()
  expect_fail_all(Environment, myobj)

  ee = new.env(parent = emptyenv())
  ee$yyy = 1
  ee$zzz = 1

  expect_false(testEnvironment(NULL))
  expect_false(testEnvironment(list()))
  expect_true(testEnvironment(ee))

  expect_false(testEnvironment(ee, contains = "xxx"))
  expect_true(testEnvironment(ee, contains = "yyy"))
  expect_true(testEnvironment(ee, contains = c("yyy", "zzz")))

  expect_error(assertEnvironment(list()), "environment")
  expect_error(assertEnvironment(ee, "xxx"), "with name")
  expect_error(assertEnvironment(letters), "character")
})