(require-library simple-tests)
(import simple-tests)

;  (simple-test (FOO)
;    (= 4 (length '(0 1 2 3 4)))
;    (list? '(0 1 2 3 4))
;    (not (vector? '(0 1 2 3 4)))
;    (zero? (car '(0 1 2 3 4)))
;    (= 2 (list-ref '(0 1 2 3 4) 2)))

(define-test (bar n)
  (check
    (positive? n)
    (even? n)))

(define-test (foo x y)
  (check
    (< x y)
    "COMMENT"
    (bar 4)
    (odd? 3)
    (positive? 3)))

  (define-test (+?)
    (check
      (= (+ 1 2) 3)
      (= (+ 1 2 3) 6)))
  (define-test (*?)
    (check
      (= (* 1 2) 2)
      (= (* 1 2 3) 6)))
  (define-test (arithmetic?)
    (check
      (+?)
      (*?)))

(compound-test (simple-tests)
  (arithmetic?)
  (foo 1 2)
  )