Test output for defstruct

Testing time: 8.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm

-- testing empty -------------------------------------------------------------
(empty? (make-empty)) ................................................ [ PASS]
1 test completed in 0 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 0 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 0.001 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 uninitialized... ... [ 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 0.003 seconds.
7 out of 7 (100%) tests passed.
-- done testing alist conversion ---------------------------------------------