require at least one test expression
svn: r11756
This commit is contained in:
parent
99dc711ac0
commit
f25da8fd7d
|
@ -95,8 +95,8 @@
|
||||||
(reverse exns))))))))))))
|
(reverse exns))))))))))))
|
||||||
|
|
||||||
(provide test test*)
|
(provide test test*)
|
||||||
(define-syntax-rule (test x ...) (run-tests (test-thunk x ...) #f))
|
(define-syntax-rule (test x0 x ...) (run-tests (test-thunk x0 x ...) #f))
|
||||||
(define-syntax-rule (test* x ...) (run-tests (test-thunk x ...) #t))
|
(define-syntax-rule (test* x0 x ...) (run-tests (test-thunk x0 x ...) #t))
|
||||||
|
|
||||||
#; ;; test the `test' macro
|
#; ;; test the `test' macro
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user