suzanne.soy/rackunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't make an alias just for `raise'

Browse Source 
original commit: 9ec2e41db06bdc0713b4c5b5b10ac5c1edd73f91
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 16:52:47 -04:00
parent 2d0c15f910
commit 6a18313c22
2 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/racunit/private/test-case.rkt
View File

@ -57,13 +57,6 @@
v v
(raise-type-error 'current-test-case-around "procedure" v))))) (raise-type-error 'current-test-case-around "procedure" v)))))
;; test-case-check-handler : (-> exn void)
;;
;; Raise any exceptions that occur in checks, halting
;; evaluation of following expression within the scope of
;; the test case
(define test-case-check-handler raise)
(define-syntax (test-begin stx) (define-syntax (test-begin stx)
(syntax-case stx () (syntax-case stx ()
[(_ expr ...) [(_ expr ...)
@ -71,7 +64,7 @@
((current-test-case-around) ((current-test-case-around)
(lambda () (lambda ()
(parameterize (parameterize
([current-check-handler test-case-check-handler] ([current-check-handler raise]
[current-check-around check-around]) [current-check-around check-around])
expr ...))))] expr ...))))]
[_ [_

4
collects/racunit/scribblings/check.scrbl
View File

@ -332,9 +332,7 @@ of these parameters.
@defparam[current-check-handler handler (-> any/c any/c)]{ @defparam[current-check-handler handler (-> any/c any/c)]{
Parameter containing the function that handles exceptions Parameter containing the function that handles exceptions
raised by check failures. The default behaviour is to print raised by check failures. The default value is @racket[raise]. }
an error message including the exception message and stack
trace. }
@defparam[current-check-around check (-> thunk any/c)]{ @defparam[current-check-around check (-> thunk any/c)]{