18 lines
502 B
Scheme
18 lines
502 B
Scheme
(module test-macro mzscheme
|
|
|
|
(require (lib "etc.ss"))
|
|
|
|
(provide test)
|
|
|
|
;; test: (lambda (a?) ((a? a? . -> . boolean?) a? a? . -> . (void))
|
|
;; tests to see if the expression is true and prints and error if it's not
|
|
(define-syntax test
|
|
(syntax-rules (identity)
|
|
((_ test actual expected)
|
|
(let ([result
|
|
(with-handlers
|
|
([exn? identity])
|
|
actual)])
|
|
(and (not (exn? result))
|
|
(test result expected))))))
|
|
) |