(import (scheme base)
        (scheme write)
        (scheme read)
        (retropikzel tap)
        (retropikzel assert)
        (srfi 64))

(test-runner-current (tap-runner))

(test-begin "assert")

(define (plus a b)
  (assert integer? a "a must be integer")
  (assert integer? b "b must be integer")
  (+ a b))

(test-equal 10 (plus 5 5))

(test-equal 'error
            (guard (condition (else 'error))
              (plus 5 'a)))

(test-end "assert")