Test output for defstruct [ok]

Testing time: 0s

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

-- testing empty -------------------------------------------------------------
(empty? (make-empty)) ................................................ [ PASS]
1 test completed in 1/1000 seconds.
1 out of 1 (100%) test passed.
-- done testing empty --------------------------------------------------------


-- testing simple ------------------------------------------------------------
(simple? (make-simple #:field 'foo)) ................................. [ PASS]
(simple-field (make-simple #:field 'foo)) ............................ [ PASS]
2 tests completed in 1/1000 seconds.
2 out of 2 (100%) tests passed.
-- done testing simple -------------------------------------------------------


-- testing with initializer --------------------------------------------------
(init? (make-init 'foo)) ............................................. [ PASS]
(init-field-1 (make-init #:field-1 'foo)) ............................ [ PASS]
(not (eq? (init-field-2 (make-init)) (init-field-2 (make-init)))) .... [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing with initializer ---------------------------------------------


-- testing complex -----------------------------------------------------------
(complex? (make-complex)) ............................................ [ PASS]
(complex-field-1 (make-complex #:field-1 'foo)) ...................... [ PASS]
(complex-field-3 (make-complex #:field-1 'foo)) ...................... [ PASS]
(complex-field-1 (make-complex #:field-2 'foo)) ...................... [ PASS]
(complex-field-2 (make-complex #:field-1 'foo)) ...................... [ PASS]
(complex-field-2 (make-complex #:field-2 'hai #:field-1 'foo)) ....... [ PASS]
6 tests completed in 0 seconds.
6 out of 6 (100%) tests passed.
-- done testing complex ------------------------------------------------------


-- testing updaters ----------------------------------------------------------
(complex-field-1 c1) ................................................. [ PASS]
(complex-field-2 c1) ................................................. [ PASS]
(complex-field-1 c2) ................................................. [ PASS]
(complex-field-2 c2) ................................................. [ PASS]
(complex-field-1 c3) ................................................. [ PASS]
(eq? (complex-field-4 c1) (complex-field-4 c2)) ...................... [ PASS]
(eq? (complex-field-4 c1) (complex-field-4 c3)) ...................... [ PASS]
(complex-field-3 c1) ................................................. [ PASS]
(complex-field-1 c1) ................................................. [ PASS]
(complex-field-1 c2) ................................................. [ PASS]
10 tests completed in 1/1000 seconds.
10 out of 10 (100%) tests passed.
-- done testing updaters -----------------------------------------------------


-- testing hygiene -----------------------------------------------------------
(ini-capture-uninitialized (update-ini-capture i1)) .................. [ PASS]
(ini-capture-uninitialized (update-ini-capture i1 #:uninitializ... ... [ PASS]
(ini-capture-uninitialized i1) ....................................... [ PASS]
3 tests completed in 0 seconds.
3 out of 3 (100%) tests passed.
-- done testing hygiene ------------------------------------------------------


-- testing alist conversion --------------------------------------------------
(complex->alist rec1) ................................................ [ PASS]
(complex-field-1 rec2) ............................................... [ PASS]
(complex-field-2 rec2) ............................................... [ PASS]
(complex-field-3 rec2) ............................................... [ PASS]
(complex-field-4 rec2) ............................................... [ PASS]
(complex? (alist->complex '())) ...................................... [ PASS]
(complex? (alist->complex '((nonexistant-field quote hi)))) .......... [ PASS]
7 tests completed in 1/1000 seconds.
7 out of 7 (100%) tests passed.
-- done testing alist conversion ---------------------------------------------