Initial commit

tests/queue.scm

@@ -0,0 +1,22 @@
+(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")