Initial commit

tests/timeout.scm

@@ -0,0 +1,22 @@
+(use-modules (tests)
+             (fibers)
+             (unit-test)
+             (knots timeout))
+
+(run-fibers-for-tests
+ (lambda ()
+   (assert-equal
+    1
+    (with-fibers-timeout
+     (const 1)
+     #:timeout 10))
+
+   (assert-equal
+    2
+    (with-fibers-timeout
+     (lambda ()
+       (sleep 10))
+     #:timeout 0.1
+     #:on-timeout (const 2)))))
+
+(display "timeout test finished successfully\n")