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

(compound-test ('simple-tests)
  (define-test (+?)
    (check
      (= (+ 1 2) 3)
      (= (+ 1 2 3) 6)))
  (define-test (*?)
    (check
      (= (* 1 2) 2)
      (= (* 1 2 3) 6)))
  (define-test (arithmetic?)
    (+?)
    (*?))
  (arithmetic?)
  (simple-test ('FOO)
    (= 5 (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))
    ))