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

Make these tests easier to distinguish.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2018-11-21 12:37:07 -05:00
parent 744d440ab9
commit 7017781681
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-test-core/tests/racket/basic.rktl
View File

@ -1583,21 +1583,21 @@
(with-handlers ([void (lambda (x) (list x))])
(with-handlers ([integer? (lambda (x) 10)])
(raise 'apple))))
(test '((10)) 'exns
(test '((20)) 'exns
(with-handlers ([void (lambda (x) (list x))])
(with-handlers ([integer? (lambda (x) (raise (list x)))])
(raise 10))))
(test '((10)) 'exns
(raise 20))))
(test '((30)) 'exns
(let/ec esc
(parameterize ([uncaught-exception-handler (lambda (x) (esc (list x)))])
(with-handlers ([integer? (lambda (x) (raise (list x)))])
(raise 10)))))
(test '#((10)) 'exns
(raise 30)))))
(test '#((40)) 'exns
(let/ec esc
(with-handlers ([void (lambda (x) (vector x))])
(parameterize ([uncaught-exception-handler (lambda (x) (esc (list x)))])
(with-handlers ([integer? (lambda (x) (raise (list x)))])
(raise 10))))))
(raise 40))))))
(test '(except) 'escape
(let/ec k