26 lines
677 B
Scheme
26 lines
677 B
Scheme
(use-modules (tests)
|
|
(fibers)
|
|
(unit-test)
|
|
(knots resource-pool))
|
|
|
|
(run-fibers-for-tests
|
|
(lambda ()
|
|
(let ((resource-pool (make-resource-pool
|
|
(lambda ()
|
|
2)
|
|
1)))
|
|
(assert-equal
|
|
(with-resource-from-pool resource-pool
|
|
res
|
|
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")
|