Test output for channel [fail]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/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.401 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)) ....................................... [ PASS]
(channel-closed? c2) ............................................. [ PASS]
-- testing gc --------------------------------------------------------
(length (channel-forks c)) ................................... [ PASS]
[panic] out of memory - heap full while resizing - execution terminated
...more...
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval>
<eval> <--