22 lines
592 B
Scheme
22 lines
592 B
Scheme
(use-modules (tests)
|
|
(fibers)
|
|
(fibers channels)
|
|
(unit-test)
|
|
(knots queue))
|
|
|
|
(run-fibers-for-tests
|
|
(lambda ()
|
|
(let* ((dest-channel
|
|
(make-channel))
|
|
(queue-channel
|
|
(spawn-queueing-fiber dest-channel)))
|
|
|
|
(put-message queue-channel 1)
|
|
(put-message queue-channel 2)
|
|
(put-message queue-channel 3)
|
|
|
|
(assert-equal 1 (get-message dest-channel))
|
|
(assert-equal 2 (get-message dest-channel))
|
|
(assert-equal 3 (get-message dest-channel)))))
|
|
|
|
(display "queue test finished successfully\n")
|