29 lines
545 B
Scheme
29 lines
545 B
Scheme
#lang scheme
|
|
(require frtime/core/erl
|
|
tests/eli-tester)
|
|
|
|
(define ch (make-channel))
|
|
(define t
|
|
(spawn/name
|
|
'test
|
|
(let loop ()
|
|
(receive
|
|
[after 10
|
|
(channel-put ch "Timeout")
|
|
(loop)]
|
|
['self
|
|
(channel-put ch (self))
|
|
(loop)]
|
|
[v
|
|
(channel-put ch v)
|
|
(loop)]))))
|
|
|
|
(test
|
|
(! t #t) => (void)
|
|
(channel-get ch) => #t
|
|
(! t (list 1 2)) => (void)
|
|
(channel-get ch) => (list 1 2)
|
|
(! t 'self) => (void)
|
|
(channel-get ch) => #s(tid test)
|
|
(self) => #s(tid thread1))
|