Test output for typed-records [ok]

Testing time: 1s

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

-- testing interpreted -------------------------------------------------------
(= 33 (person-age p)) ................................................ [ PASS]
#<foo>
(bar943-a b) 1
(bar943-b b) 42
(eq? 1 (bar943-a x)) ................................................. [ PASS]
(eq? 42 (bar943-b x)) ................................................ [ PASS]
3 tests completed in 41/500 seconds.
3 out of 3 (100%) tests passed.
-- done testing interpreted --------------------------------------------------


-- testing compiled with specialization --------------------------------------
(compiler-typecase (point-y pt) (number 'ok) (* 'wrong) (else '... ... [ PASS]
(compiler-typecase (get-baz p3) (float 'ok) (* 'wrong) (else 'ok)) ... [ PASS]
(compiler-typecase pt ((struct point) 'ok) (* 'wrong) (else 'ok)) .... [ PASS]
(compiler-typecase (make-person) ((struct person) 'ok) (* 'wron... ... [ PASS]
(= 33 (person-age p)) ................................................ [ PASS]
#<foo>
(bar943-a b) 1
(bar943-b b) 42
(eq? 1 (bar943-a x)) ................................................. [ PASS]
(eq? 42 (bar943-b x)) ................................................ [ PASS]
7 tests completed in 1343/1000 seconds.
7 out of 7 (100%) tests passed.
-- done testing compiled with specialization ---------------------------------