Test output for cells [ok]

Testing time: 0s

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

Testing cells ...
----------------------------
(define c% (make-cell-of number? positive?))
... passed in (TYPED_CELLS)
((cell-of? number? positive?) c%)
... passed in (TYPED_CELLS)
(cell-empty? c%)
... passed in (TYPED_CELLS)
(c% 5)
... passed in (TYPED_CELLS)
(not (cell-empty? c%))
... passed in (TYPED_CELLS)
(define d% (make-cell-of boolean?))
... passed in (TYPED_CELLS)
(cell-empty? d%)
... passed in (TYPED_CELLS)
(d% #f)
... passed in (TYPED_CELLS)
(not (cell-empty? d%))
... passed in (TYPED_CELLS)
(not (d%))
... passed in (TYPED_CELLS)
((cell-of? boolean?) d%)
... passed in (TYPED_CELLS)
(not ((cell-of? number?) d%))
... passed in (TYPED_CELLS)
(= (c%) 5)
... passed in (TYPED_CELLS)
(not (eqv? (c%) (d%)))
... passed in (TYPED_CELLS)
((cell-of? number? positive?) c%)
... passed in (TYPED_CELLS)
(= (c%) 5)
... passed in (TYPED_CELLS)
(not ((cell-of? number? zero?) c%))
... passed in (TYPED_CELLS)
((cell-of? number?) c%)
... passed in (TYPED_CELLS)
((cell-of?) c%)
... passed in (TYPED_CELLS)
(cell-prune! c%)
... passed in (TYPED_CELLS)
(cell-empty? c%)
... passed in (TYPED_CELLS)
(not (condition-case (c% -5) ((exn) #f)))
... passed in (TYPED_CELLS)
(define e% (make-cell-of number?))
... passed in (TYPED_CELLS)
(e% -5)
... passed in (TYPED_CELLS)
(= (e%) -5)
... passed in (TYPED_CELLS)
(not ((cell-of? number? positive?) e%))
... passed in (TYPED_CELLS)
((cell-of? number?) e%)
... passed in (TYPED_CELLS)
(define cl (cell 5))
... passed in (CELLS)
(cell? cl)
... passed in (CELLS)
(not (cell? 5))
... passed in (CELLS)
((cell-of? number?) cl)
... passed in (CELLS)
(not ((cell-of? list?) cl))
... passed in (CELLS)
(= (cell-ref cl) 5)
... passed in (CELLS)
(cell-set! cl 50)
... passed in (CELLS)
(= (cell-ref cl) 50)
... passed in (CELLS)
(set! (cell-ref cl) 500)
... passed in (CELLS)
(= (cell-ref cl) 500)
... passed in (CELLS)
(not (condition-case (cell-ref 500) ((exn) #f)))
... passed in (CELLS)
(set! (cell-ref cl) 5000)
... passed in (CELLS)
(= 5000 (cell-ref cl))
... passed in (CELLS)
(define stack (cell '()))
... passed in (STACKS)
(cell? stack)
... passed in (STACKS)
((cell-of? list?) stack)
... passed in (STACKS)
(not ((cell-of? number?) stack))
... passed in (STACKS)
(null? (stack))
... passed in (STACKS)
(push stack 5)
... passed in (STACKS)
(push stack 50)
... passed in (STACKS)
(push stack 500)
... passed in (STACKS)
(= 500 (top stack))
... passed in (STACKS)
(pop stack)
... passed in (STACKS)
(= 50 (top stack))
... passed in (STACKS)
(pop stack)
... passed in (STACKS)
(= 5 (top stack))
... passed in (STACKS)

Results of cells
----------------------------
All tests passed