;;;; File: loops-run.scm
;;;; Author: Juergen Lorenz
;;;; ju (at) jugilo (dot) de
;;;; Date: Jun 20, 2011
;;;;       Jul 13, 2011
;;;;       Sep 03, 2011


(require 'loops)
(import loops)

;;; (run xpr0 xpr1 ...)
;;; -------------------
(define (run . xprs)
  (let loop ((xprs xprs))
    (if (null? xprs)
      (print "All tests passed!")
      (if (car xprs)
        (loop (cdr xprs))
        (error 'run "#### Some test failed! ####")))))

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