Fix a bug where resources pools could empty with waiters

2025-11-17 11:18:23 +00:00 · 2025-11-17 11:18:23 +00:00 · a13098494d
commit a13098494d
parent 40b64e269b
2 changed files with 21 additions and 0 deletions
--- a/tests/resource-pool.scm
+++ b/tests/resource-pool.scm
@ -211,4 +211,21 @@

     (destroy-resource-pool resource-pool))))

+(run-fibers-for-tests
+ (lambda ()
+   (let ((resource-pool (make-resource-pool
+                         (const 'foo)
+                         1
+                         #:lifetime 1
+                         #:destructor
+                         (const #t))))
+     (for-each
+      (lambda _
+        (with-resource-from-pool resource-pool
+            res
+          res))
+      (iota 20))
+
+     (destroy-resource-pool resource-pool))))
+
 (display "resource-pool test finished successfully\n")