guile-knots/tests/worker-threads.scm

(use-modules (tests)
             (srfi srfi-71)
             (fibers)
             (unit-test)
             (knots worker-threads))

(let ((worker-thread-set
       (make-worker-thread-set
        (const '())
        #:parallelism 2)))

  (run-fibers-for-tests
   (lambda ()
     (assert-equal
      (call-with-worker-thread
       worker-thread-set
       (lambda ()
         4))
      4))))

(let ((process-job
       count-jobs
       count-threads
       list-jobs
       (create-work-queue
        2
        (lambda (i)
          (* i 2)))))

  (process-job 3))

(display "worker-threads test finished successfully\n")