Test output for channel
/home/mario/local/chicken-4.8.0.1-rc1/bin/csi -script run.scm < /dev/null
-- testing ------------------------------------------------------------------
-- testing channel-receive -----------------------------------------------
(channel-receive c results) ...................................... [ PASS]
'(1) ............................................................. [ PASS]
(not (channel-receive c results)) ................................ [ PASS]
'(1 2) ........................................................... [ PASS]
'(1 1 2 2) ....................................................... [ PASS]
5 tests completed in 0.0 seconds.
5 out of 5 (100%) tests passed.
-- done testing channel-receive ------------------------------------------
-- testing channel receivers ---------------------------------------------
'(1 2 3 4 5) ..................................................... [ PASS]
'(4 4) ........................................................... [ PASS]
'(5) ............................................................. [ PASS]
'(1 2 3 4 5) ..................................................... [ PASS]
'(5 6) ........................................................... [ PASS]
5 tests completed in 0.0 seconds.
5 out of 5 (100%) tests passed.
-- done testing channel receivers ----------------------------------------
> (foo)
<< thread418 receive-1
< thread418 thread418 receive-1 foo
>> enqueuing (bar)
> (bar)
<< thread418 receiver-t
< thread418 thread418 receiver-t bar
<< primordial receiver-p
<< thread418 receive-2
<< thread418 receive-2
>> enqueuing (baz qux quux)
< thread418 primordial receive-2 baz
< thread418 primordial receive-2 baz
< primordial primordial receiver-p baz
< thread418 primordial receiver-t baz
< primordial primordial receiver-p qux
< thread418 primordial receiver-t qux
< primordial primordial receiver-p quux
< thread418 primordial receiver-t quux
> ()
>> enqueuing (frob)
< primordial thread418 receiver-p frob
< thread418 thread418 receiver-t frob
> ()
-- testing parallel channel receivers ------------------------------------
(queue->list results-receive-1) .................................. [ PASS]
(queue->list results-receiver-t) ................................. [ PASS]
(queue->list results-receive-2) .................................. [ PASS]
(queue->list results-receiver-p) ................................. [ PASS]
4 tests completed in 0.001 seconds.
4 out of 4 (100%) tests passed.
-- done testing parallel channel receivers -------------------------------
-- testing closing, emptying and draining channels -----------------------
(not (channel-closed? c)) ........................................ [ PASS]
(not (channel-drained? c)) ....................................... [ PASS]
(channel-empty? c) ............................................... [ PASS]
(channel-enqueue c 1) ............................................ [ PASS]
(not (channel-empty? c)) ......................................... [ PASS]
(not (channel-closed? c)) ........................................ [ PASS]
(not (channel-drained? c)) ....................................... [ PASS]
(channel-empty? c) ............................................... [ PASS]
(not (channel-closed? c)) ........................................ [ PASS]
(not (channel-drained? c)) ....................................... [ PASS]
(channel-enqueue c 1) ............................................ [ PASS]
(channel-closed? c) .............................................. [ PASS]
(not (channel-enqueue c 1)) ...................................... [ PASS]
(not (channel-empty? c)) ......................................... [ PASS]
(channel-closed? c) .............................................. [ PASS]
(channel-empty? c) ............................................... [ PASS]
(channel-drained? c) ............................................. [ PASS]
17 tests completed in 0.001 seconds.
17 out of 17 (100%) tests passed.
-- done testing closing, emptying and draining channels ------------------
-- testing synchronous channel-receive -----------------------------------
(channel-receive c) .............................................. [ PASS]
'foo ............................................................. [ PASS]
-- testing with timeout ----------------------------------------------
(channel-receive c 3) ........................................ [ PASS]
(not (channel-receive c 0.2)) ................................ [ PASS]
(channel-receive c 0.2 (lambda () 'none)) .................... [ PASS]
3 tests completed in 0.4 seconds.
3 out of 3 (100%) tests passed.
-- done testing with timeout -----------------------------------------
2 tests and 1 subgroup completed in 0.401 seconds.
2 out of 2 (100%) tests passed.
1 out of 1 (100%) subgroup passed.
-- done testing synchronous channel-receive ------------------------------
-- testing fork-channel --------------------------------------------------
'(1 2) ........................................................... [ PASS]
'(1 2) ........................................................... [ PASS]
'(1 2 3) ......................................................... [ PASS]
'(1 2 3 4) ....................................................... [ PASS]
(not (channel-closed? c2)) .......................................
Warning: error in group outside of tests
Error: unprintable non-immediate object encountered
Call history:
<eval> (cons877 (quote878 name879) #f)
... (r2)
... [...] (length52 rvar46)
... [...] (eq?49 lvar47 0)
... [...] (queue->list q)
... (test-run886 (lambda887 () #f) (lambda887 () (not (channel-closed? c2))) (cons888 (cons888 (quote889......
... (cons888 (cons888 (quote889 name890) #f) (quote889 ((source891 not (channel-closed? c2)) (source885 not...
... (cons888 (quote889 name890) #f)
... (not (channel-closed? c2))
... (channel-closed? c2)
... (close-channel c1)
... (k825 (##core#lambda () (##core#let ((kvar819 (and820 (##sys#structure? exvar818 (##core#quote condi......
... (##sys#structure? exvar818 (##core#quote condition))
... (##sys#slot exvar818 1)
... (warning810 "error in group outside of tests")
... (print-error-message811 e809)...[ PASS]
Error: bad argument type - not a structure of the required type