Test output for simple-loops [ok]

Testing time: 0s

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

Testing LOOPS ...
----------------------------
(equal?
  (let ((lst '())) (do-times i (+ 2 3) (set! lst (cons i lst))) lst)
  '(4 3 2 1 0))
... passed in (loops?)
(equal?
  (let ((lst '())) (do-list i '(1 2 3) (set! lst (cons i lst))) lst)
  '(3 2 1))
... passed in (loops?)
(equal?
  (let ((lst '())) (do-for i (1 5) (set! lst (cons i lst))) (reverse lst))
  '(1 2 3 4))
... passed in (loops?)
(equal?
  (let ((lst '())) (do-for i (1 65 i) (set! lst (cons i lst))) (reverse lst))
  '(1 2 4 8 16 32 64))
... passed in (loops?)
(equal?
  (let ((n 4) (lst '()))
    (do-while (<= 0 n) (set! lst (cons n lst)) (set! n (- n 1)))
    lst)
  '(0 1 2 3 4))
... passed in (loops?)
(equal?
  (let ((n 4) (lst '()))
    (do-until (> 0 n) (set! lst (cons n lst)) (set! n (- n 1)))
    lst)
  '(0 1 2 3 4))
... passed in (loops?)
(equal?
  (let ((n 3) (lst '()))
    (do-forever
      (if (zero? n) (exit lst))
      (set! lst (cons 'a lst))
      (set! n (- n 1))))
  '(a a a))
... passed in (loops?)

Results of LOOPS
----------------------------
All tests passed