(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")