Support getting the pool from the timeout error

2025-01-06 19:04:06 +00:00 · 2025-01-06 19:04:06 +00:00 · 97a3116b81
commit 97a3116b81
parent 6119ece5cb
2 changed files with 19 additions and 5 deletions
--- a/tests/resource-pool.scm
+++ b/tests/resource-pool.scm
@ -15,4 +15,12 @@
                               res)
      2))))

+(let* ((error-constructor
+        (record-constructor &resource-pool-timeout))
+       (err
+        (error-constructor 'foo)))
+  (assert-equal
+   (resource-pool-timeout-error-pool err)
+   'foo))
+
 (display "resource-pool test finished successfully\n")