tests: Add sleep order testing

Author: codemac

tests/basic.scm

@@ -18,7 +18,8 @@
 ;;;;
 
 (define-module (tests basic)
-  #:use-module (fibers))
+  #:use-module (fibers)
+  #:use-module (srfi srfi-1))
 
 (define failed? #f)
 
@@ -96,6 +97,29 @@
 
 ;; sleep wakeup order
 
+(define sleep-list-mtx (make-mutex 'unchecked-unlock 'allow-external-unlock ))
+
+(define sleep-list '())
+(define (add-order n)
+  (lock-mutex sleep-list-mtx)
+  (set! sleep-list (cons n sleep-list))
+  (unlock-mutex sleep-list-mtx))
+
+(assert-run-fibers-terminates
+ (begin
+   (spawn-fiber (lambda () (sleep 0.0) (add-order 0)))
+   (spawn-fiber (lambda () (sleep 0.0009) (add-order 9)))
+   (spawn-fiber (lambda () (sleep 0.0007) (add-order 7)))
+   (spawn-fiber (lambda () (sleep 0.0005) (add-order 5)))
+   (spawn-fiber (lambda () (sleep 0.0003) (add-order 3)))
+   (spawn-fiber (lambda () (sleep 0.0001) (add-order 1)))
+   (spawn-fiber (lambda () (sleep 0.0002) (add-order 2)))
+   (spawn-fiber (lambda () (sleep 0.0004) (add-order 4)))
+   (spawn-fiber (lambda () (sleep 0.0006) (add-order 6)))
+   (spawn-fiber (lambda () (sleep 0.0008) (add-order 8)))))
+
+(assert-equal (iota 10 0) (reverse sleep-list))
+
 ;; fib using channels
 
 ;; sleep durations