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

rackunit: fix tests

Browse Source 
merge to 5.2

original commit: 18b3899e6aac5a6d39507e8b2b549f05b4eec0ca
This commit is contained in:
Ryan Culpepper 2011-10-08 01:07:08 -06:00
parent 7ac8d8a288
commit ed6361fb0e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/rackunit/check-test.rkt
View File

@ -314,5 +314,12 @@
(parameterize ([current-check-around (lambda (t) (set! x 'foo))]) (parameterize ([current-check-around (lambda (t) (set! x 'foo))])
(check-eq? 'a 'b)) (check-eq? 'a 'b))
(check-eq? x (check-eq? x
'foo))))) 'foo)))
(test-case
"current-check-handler is used by checks"
(check-eq? (let/ec escape
(parameterize ([current-check-handler (lambda (e) (escape 'foo))])
(check-eq? 'a 'b)))
'foo))
))