22 lines
450 B
Scheme
22 lines
450 B
Scheme
(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")
|