Test output for coops [ok]

Testing time: 12s

/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null
(interpreted)
  /home/mario/local/chicken-4.8.0.3/bin/csi -s tests.scm
#<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 0.025 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 0.019 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 0.007 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 0.003 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 0.005 seconds.
3 out of 3 (100%) tests passed.
-- done testing multiple values ----------------------------------------------

(compiled)
  /home/mario/local/chicken-4.8.0.3/bin/csc -feature compiling-extension -setup-mode    tests.scm -o a.out
  ./a.out
#<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 0.002 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 0.001 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 0.001 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 0.0 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 0.0 seconds.
3 out of 3 (100%) tests passed.
-- done testing multiple values ----------------------------------------------

(benchmarks - coops)
  /home/mario/local/chicken-4.8.0.3/bin/csc -feature compiling-extension -setup-mode    bench.scm -D c -O3 -o a.out
  ./a.out

benchmarking 1000000 normal procedure calls ... 
0.028s CPU time, 0/45 GCs (major/minor)

benchmarking 1000000 generic procedure calls ... 
0.368s CPU time, 6 mutations, 1/4853 GCs (major/minor)

benchmarking 1000000 generic procedure calls (alternating) ... 
4.396s CPU time, 0.164s GC time (major), 6499996 mutations, 292/74497 GCs (major/minor)

benchmarking 1000000 slot accesses ...
0.116s CPU time, 0/1039 GCs (major/minor)