Test output for coops-utils [ok]

Testing time: 5s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
*** csi ***

-- testing Coops Utils -------------------------------------------------------
(class? <standard-class>) ............................................ [ PASS]
(class? <standard-object>) ........................................... [ PASS]
(class-precedence-list <s2xzs1ab>) ................................... [ PASS]
(class-slots <s2xzs1ab>) ............................................. [ PASS]
(class? <s2xzs2ac>) .................................................. [ PASS]
(class-direct-supers <s2ac>) ......................................... [ PASS]
(class-direct-slots <s2ac>) .......................................... [ PASS]
(class? <s1xys1ab>) .................................................. [ PASS]
(class-direct-supers <s1xys1ab>) ..................................... [ PASS]
(class-direct-slots <s1xys1ab>) ...................................... [ PASS]
(generic-name foo) ................................................... [ PASS]
(generic-specialized-arguments foo) .................................. [ PASS]
(eq? 2 (length (generic-primary-methods foo))) ....................... [ PASS]
(list? specials) ..................................................... [ PASS]
(every class? specials) .............................................. [ PASS]
(procedure? (method-procedure x)) .................................... [ PASS]
(method? x) .......................................................... [ PASS]
(list? specials) ..................................................... [ PASS]
(every class? specials) .............................................. [ PASS]
(procedure? (method-procedure x)) .................................... [ PASS]
(method? x) .......................................................... [ PASS]
(instance? s1xy-inst) ................................................ [ PASS]
(instance-of? s1xy-inst <s1xy>) ...................................... [ PASS]
coops instance of class `<s1xy>':
x: 1
y: 2
(slot@ 1st next next next) ........................................... [ PASS]
(slot@ 1st next next next) ........................................... [ PASS]
make-copy ............................................................ [ PASS]
make-copy temphawa ................................................... [ PASS]
27 tests completed in 22/125 seconds.
27 out of 27 (100%) tests passed.
-- done testing Coops Utils --------------------------------------------------


*** csc "-inline-global -specialize -optimize-leaf-routines -clustering -lfa2 -local -inline -no-trace -no-lambda-info -unsafe" ***

-- testing Coops Utils -------------------------------------------------------
(class? <standard-class>) ............................................ [ PASS]
(class? <standard-object>) ........................................... [ PASS]
(class-precedence-list <s2xzs1ab>) ................................... [ PASS]
(class-slots <s2xzs1ab>) ............................................. [ PASS]
(class? <s2xzs2ac>) .................................................. [ PASS]
(class-direct-supers <s2ac>) ......................................... [ PASS]
(class-direct-slots <s2ac>) .......................................... [ PASS]
(class? <s1xys1ab>) .................................................. [ PASS]
(class-direct-supers <s1xys1ab>) ..................................... [ PASS]
(class-direct-slots <s1xys1ab>) ...................................... [ PASS]
(generic-name foo) ................................................... [ PASS]
(generic-specialized-arguments foo) .................................. [ PASS]
(eq? 2 (length (generic-primary-methods foo))) ....................... [ PASS]
(list? specials) ..................................................... [ PASS]
(every class? specials) .............................................. [ PASS]
(procedure? (method-procedure x)) .................................... [ PASS]
(method? x) .......................................................... [ PASS]
(list? specials) ..................................................... [ PASS]
(every class? specials) .............................................. [ PASS]
(procedure? (method-procedure x)) .................................... [ PASS]
(method? x) .......................................................... [ PASS]
(instance? s1xy-inst) ................................................ [ PASS]
(instance-of? s1xy-inst <s1xy>) ...................................... [ PASS]
coops instance of class `<s1xy>':
x: 1
y: 2
(slot@ 1st next next next) ........................................... [ PASS]
(slot@ 1st next next next) ........................................... [ PASS]
make-copy ............................................................ [ PASS]
make-copy temphawa ................................................... [ PASS]
27 tests completed in 21/1000 seconds.
27 out of 27 (100%) tests passed.
-- done testing Coops Utils --------------------------------------------------