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)