Test output for yasos [ok]

Testing time: 0s

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

-- testing accounts ----------------------------------------------------------
(person? fred) ....................................................... [ PASS]
(person? sally) ...................................................... [ PASS]
(bank-account? sally) ................................................ [ PASS]
(not (bank-account? fred)) ........................................... [ PASS]
(string=? (with-output-to-string (lambda () (show fred))) "#<Pe... ... [ PASS]
(string=? (ssn fred 'FadeCafe) "573-19-4279") ........................ [ PASS]
(string=? (with-output-to-string (lambda () (show sally))) "#<B... ... [ PASS]
(string=? (with-output-to-string (lambda () (ssn sally 'bogus))... ... [ PASS]
(string=? (ssn sally 'FeedBabe) "629-26-9742") ....................... [ PASS]
(string=? (with-output-to-string (lambda () (current-balance sa... ... [ PASS]
(string=? (begin (add sally 200) (add sally 300) (withdraw sall... ... New balance: $463
New balance: $763
New balance: $363
[ PASS]
(equal? (get-account-history sally 'bank-password) '(363 763 46... ... [ PASS]
(string=? (with-output-to-string (lambda () (withdraw sally 150... ... [ PASS]
(equal? (get-account-history sally 'bank-password) '(213 363 76... ... [ PASS]
(string=? (with-output-to-string (lambda () (ssn fred 'bogus)))... ... [ PASS]
(equal? (protocol sally) '(bank-account? show get-pin get-accou... ... [ PASS]
(equal? (protocol sally 'ssn) '(ssn self password)) .................. [ PASS]
17 tests completed in 1/500 seconds.
17 out of 17 (100%) tests passed.
-- done testing accounts -----------------------------------------------------


-- testing points ------------------------------------------------------------
(< (distance cart pol) eps) .......................................... [ PASS]
(= (rho cart) 1) ..................................................... [ PASS]
(< (abs (- (x pol) -5)) eps) ......................................... [ PASS]
(= (x cart) 0) ....................................................... [ PASS]
(= (y cart) 1) ....................................................... [ PASS]
(< (distance pol (make-point-cartesian 5 0)) eps) .................... [ PASS]
(= (size pol) 2) ..................................................... [ PASS]
7 tests completed in 0 seconds.
7 out of 7 (100%) tests passed.
-- done testing points -------------------------------------------------------


-- testing stacks ------------------------------------------------------------
(stack.stack? st) .................................................... [ PASS]
(not (stack.ra-stack? st)) ........................................... [ PASS]
(stack.empty? st) .................................................... [ PASS]
(= (stack.size st) 3) ................................................ [ PASS]
(not (stack.empty? st)) .............................................. [ PASS]
(= (stack.top st) 2) ................................................. [ PASS]
(= (stack.top st) 1) ................................................. [ PASS]
(= (stack.size st) 1) ................................................ [ PASS]
(stack.empty? st) .................................................... [ PASS]
(stack.ra-stack? rst) ................................................ [ PASS]
(stack.stack? rst) ................................................... [ PASS]
(= (stack.down rst 1) 1) ............................................. [ PASS]
(= (stack.top rst) 2) ................................................ [ PASS]
(= (stack.top rst) 1) ................................................ [ PASS]
(= (stack.down rst 1) 0) ............................................. [ PASS]
(equal? (protocol rst) '(ra-stack? show down (stack? empty? siz... ... [ PASS]
(equal? (protocol rst 'down) '(down self k)) ......................... [ PASS]
17 tests completed in 1/1000 seconds.
17 out of 17 (100%) tests passed.
-- done testing stacks -------------------------------------------------------


-- testing queues ------------------------------------------------------------
(queue.queue? qu) .................................................... [ PASS]
(not (queue.queue? #f)) .............................................. [ PASS]
(queue.empty? qu) .................................................... [ PASS]
(= (queue.size qu) 3) ................................................ [ PASS]
(not (queue.empty? qu)) .............................................. [ PASS]
(= (queue.front qu) 0) ............................................... [ PASS]
(= (queue.front qu) 1) ............................................... [ PASS]
(= (queue.size qu) 1) ................................................ [ PASS]
(equal? (protocol qu) '(queue? empty? size show state front enq... ... [ PASS]
9 tests completed in 1/1000 seconds.
9 out of 9 (100%) tests passed.
-- done testing queues -------------------------------------------------------

item: 1
item: 2
item: 3

-- testing collections -------------------------------------------------------
(collection? t) ...................................................... [ PASS]
(empty? t) ........................................................... [ PASS]
(size t) ............................................................. [ PASS]
gen-keys ............................................................. [ PASS]
gen-elts ............................................................. [ PASS]
map-keys ............................................................. [ PASS]
map-elts ............................................................. [ PASS]
reduce ............................................................... [ PASS]
reduce-items ......................................................... [ PASS]
reduce* .............................................................. [ PASS]
sort! ................................................................ [ PASS]
sort ................................................................. [ PASS]
lseq ................................................................. [ PASS]
13 tests completed in 1/500 seconds.
13 out of 13 (100%) tests passed.
-- done testing collections --------------------------------------------------