Test output for channel [fail]
Testing time: 1s
/root/salmonella-run-publish/chicken/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.001 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.001 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.002 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.002 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.402 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