acquireSequential1 :: Assertion
acquireSequential1 = do
  (pool, ok) <- makePool 10
  let check n = assertEqual "resource not recycled" 0 n
  replicateM_ 100 (RP.acquire pool 42 >>= \(n, release) -> check n >> release)
  eventually ok
acquireSequential1 :: Assertion
acquireSequential1 = do
  (pool, ok) <- makePool 10
  let check n = assertEqual "resource not recycled" 0 n
  replicateM_ 100 (RP.acquire pool 42 >>= \(n, release) -> check n >> release)
  eventually ok
acquireSequential1 = do
  (pool, ok) <- makePool 10
  let check n = assertEqual "resource not recycled" 0 n
  replicateM_ 100 (RP.acquire pool 42 >>= \(n, release) -> check n >> release)
  eventually ok