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

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

(test-begin "assert")

(test-equal 1 (assert number? 1))

(test-equal 'error
            (guard (condition (else 'error))
              (assert number? "string")))

(test-equal 1 (asserts (number? (lambda (i) (= i 1))) 1))

(test-end "assert")