tests/testthat/test_delete_all.R

In fig: A Config Package with No "Con"

test_that("delete_all works", {
  fig <- Fig$new()
  old_items <- fig$.__enclos_env__$private$storage
  fig$delete_all()
  expect_false(identical(fig$.__enclos_env__$private$storage, old_items))
})

test_that("fig_delete_all shares delete_all arguments", {
  expect_equal(formalArgs(fig_delete_all), formalArgs(Fig$new()$delete_all))
})