22 |
:export ( |
:export ( |
23 |
|
|
24 |
;; Exceptions which are commonly being tested for. |
;; Exceptions which are commonly being tested for. |
25 |
|
exception:missing-expression |
26 |
exception:out-of-range exception:unbound-var |
exception:out-of-range exception:unbound-var |
27 |
exception:wrong-num-args exception:wrong-type-arg |
exception:wrong-num-args exception:wrong-type-arg |
28 |
|
|
33 |
|
|
34 |
;; Naming groups of tests in a regular fashion. |
;; Naming groups of tests in a regular fashion. |
35 |
with-test-prefix with-test-prefix* current-test-prefix |
with-test-prefix with-test-prefix* current-test-prefix |
36 |
|
format-test-name |
37 |
|
|
38 |
;; Reporting results in various ways. |
;; Reporting results in various ways. |
39 |
register-reporter unregister-reporter reporter-registered? |
register-reporter unregister-reporter reporter-registered? |
40 |
make-count-reporter print-counts |
make-count-reporter print-counts |
41 |
make-log-reporter |
make-log-reporter |
42 |
full-reporter |
full-reporter |
43 |
user-reporter |
user-reporter)) |
|
format-test-name)) |
|
44 |
|
|
45 |
|
|
46 |
;;;; If you're using Emacs's Scheme mode: |
;;;; If you're using Emacs's Scheme mode: |
233 |
;;;; |
;;;; |
234 |
|
|
235 |
;;; Define some exceptions which are commonly being tested for. |
;;; Define some exceptions which are commonly being tested for. |
236 |
|
(define exception:missing-expression |
237 |
|
(cons 'misc-error "^missing or extra expression")) |
238 |
(define exception:out-of-range |
(define exception:out-of-range |
239 |
(cons 'out-of-range "^Argument .*out of range")) |
(cons 'out-of-range "^Argument .*out of range")) |
240 |
(define exception:unbound-var |
(define exception:unbound-var |