24 lines
457 B
Scheme
24 lines
457 B
Scheme
(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")
|