Test output for coops [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
#<coops instance of `<i1>'>#<coops instance of `<i1>'>


-- testing miscellaneous -----------------------------------------------------
(slot-initialized? i1 'y) ............................................ [ PASS]
(slot-initialized? i2 'y) ............................................ [ PASS]
(slot-initialized? i1 'x) ............................................ [ PASS]
(slot-initialized? i2 'x) ............................................ [ PASS]
(slot-value i1 'x) ................................................... [ PASS]
(slot-value i2 'x) ................................................... [ PASS]
(##sys#symbol-has-toplevel-binding? 'm1) ............................. [ PASS]
(m1 i1) .............................................................. [ PASS]
(##sys#symbol-has-toplevel-binding? 'm1) ............................. [ PASS]
(m1 i1) .............................................................. [ PASS]
(class-of <mc1>) ..................................................... [ PASS]
(set! (m1 i1) 42) .................................................... [ PASS]
(mx (make <cx>)) ..................................................... [ PASS]
(mx +) ............................................................... [ PASS]
(mx +) ............................................................... [ PASS]
(mx +) ............................................................... [ PASS]
(mx i1) .............................................................. [ PASS]
(s1 c1) .............................................................. [ PASS]
(s1 c1) .............................................................. [ PASS]
(begin (m (make D)) clist) ........................................... [ PASS]
20 tests completed in 59/1000 seconds.
20 out of 20 (100%) tests passed.
-- done testing miscellaneous ------------------------------------------------


-- testing ScmObj examples ---------------------------------------------------
(slot-value Telemakhos '#:name) ...................................... [ PASS]
(slot-value Telemakhos '#:favorite-drink) ............................ [ PASS]
(slot-value Telemakhos '#:favorite-drink) ............................ [ PASS]
(class-of Telemakhos) ................................................ [ PASS]
(slot-value Odysseus '#:name) ........................................ [ PASS]
(slot-initialized? Odysseus '#:favorite-drink) ....................... [ PASS]
(handle-exceptions ex #f (slot-value Odysseus '#:favorite-island)) ... [ PASS]
(subclass? schemer-c human-c) ........................................ [ PASS]
(subclass? human-c schemer-c) ........................................ [ PASS]
(with-output-to-string (lambda () (for-each (lambda (person) (f... ... [ PASS]
(with-output-to-string (lambda () (for-each (lambda (person) (i... ... [ PASS]
(list (likes Odysseus lutefisk) (likes Odysseus champagne) (lik... ... [ PASS]
12 tests completed in 3/50 seconds.
12 out of 12 (100%) tests passed.
-- done testing ScmObj examples ----------------------------------------------


-- testing primitive classes -------------------------------------------------
(m2 "1" 2) ........................................................... [ PASS]
(m2 2.5 'a) .......................................................... [ PASS]
2 tests completed in 3/250 seconds.
2 out of 2 (100%) tests passed.
-- done testing primitive classes --------------------------------------------


-- testing metaclasses -------------------------------------------------------
(slot-value (make <a>) 'b) ........................................... [ PASS]
(meta-a <a>) ......................................................... [ PASS]
2 tests completed in 3/250 seconds.
2 out of 2 (100%) tests passed.
-- done testing metaclasses --------------------------------------------------


-- testing multiple values ---------------------------------------------------
(receive (mv-foo (make <mv>))) ....................................... [ PASS]
(receive (mv-bar (make <mv>))) ....................................... [ PASS]
(receive (mv-baz (make <mv>))) ....................................... [ PASS]
3 tests completed in 7/500 seconds.
3 out of 3 (100%) tests passed.
-- done testing multiple values ----------------------------------------------