Fix issue with parallel creating resource pool resources

2025-01-31 17:55:18 +01:00 · 2025-01-31 17:55:18 +01:00 · 2910e66150
commit 2910e66150
parent 61451907a9
2 changed files with 58 additions and 40 deletions
--- a/tests/resource-pool.scm
+++ b/tests/resource-pool.scm
@ -72,4 +72,27 @@

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

+(run-fibers-for-tests
+ (lambda ()
+   (let* ((counter 0)
+          (resource-pool (make-resource-pool
+                          (lambda ()
+                            (let ((start-val counter))
+                              (sleep 0.05)
+                              (if (= start-val counter)
+                                  (set! counter (+ 1 counter))
+                                  (error "collision detected")))
+                            (new-number))
+                          1)))
+     (fibers-for-each
+      (lambda _
+        (with-resource-from-pool
+         resource-pool res
+         (let ((start-val counter))
+           (sleep 0.05)
+           (if (= start-val counter)
+               (set! counter (+ 1 counter))
+               (error "collision detected")))))
+      (iota 50)))))
+
 (display "resource-pool test finished successfully\n")