acquireConcurrent1 :: Assertion
acquireConcurrent1 = do
  (pool, ok) <- makePool 10
  parallelSequence_ $ replicate 100 (RP.acquire pool 42 >>= \(n, release) -> release)
  eventually ok
acquireConcurrent1 :: Assertion
acquireConcurrent1 = do
  (pool, ok) <- makePool 10
  parallelSequence_ $ replicate 100 (RP.acquire pool 42 >>= \(n, release) -> release)
  eventually ok
acquireConcurrent1 = do
  (pool, ok) <- makePool 10
  parallelSequence_ $ replicate 100 (RP.acquire pool 42 >>= \(n, release) -> release)
  eventually ok