(require-library simple-tests)
(import (only simple-tests simple-test compound-test))

(compound-test ('BAR)
  (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))
    ))