tests/testthat/test-pool-methods.R

In bborgesr/pool: Object Pooling

test_that("localCheckout works", {
  pool <- poolCreate(function(x) 1)
  defer(poolClose(pool))

  f <- function() {
    localCheckout(pool)
    checkCounts(pool, free = 0, taken = 1)
  }

  f()
  checkCounts(pool, free = 1, taken = 0)
})