18 lines
482 B
Scheme
18 lines
482 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))))
|
|
|
|
(display "resource-pool test finished successfully\n")
|