From: Christopher Allan Webber Date: Sat, 28 Nov 2015 04:12:22 +0000 (-0600) Subject: use catch-8sync in test-agenda.scm X-Git-Tag: v0.1.0~57 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=70569369ff9d2814d4902443a6531cce76dcc8de;p=8sync.git use catch-8sync in test-agenda.scm --- diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm index 6918c99..a41be0a 100644 --- a/tests/test-agenda.scm +++ b/tests/test-agenda.scm @@ -350,23 +350,22 @@ (define* (local-func-gets-break #:key with-indirection) (speaker "Time for exception fun!\n") (let ((caught-exception #f)) - (catch '%8sync-caught-error - (lambda () - (%8sync (%run (if with-indirection - (indirection-remote-func-breaks) - (remote-func-breaks))))) - (lambda (_ orig-key orig-args orig-stacks) - (set! caught-exception #t) - (speaker "in here now!\n") - (test-equal orig-key 'numerical-overflow) - (test-equal orig-args '("/" "Numerical overflow" #f #f)) - (test-assert (list? orig-stacks)) - (test-equal (length orig-stacks) - (if with-indirection 2 1)) - (for-each - (lambda (x) - (test-assert (stack? x))) - orig-stacks))) + (catch-8sync + (%8sync (%run (if with-indirection + (indirection-remote-func-breaks) + (remote-func-breaks)))) + ('numerical-overflow + (lambda (orig-stacks . orig-args) + (set! caught-exception #t) + (speaker "in here now!\n") + (test-equal orig-args '("/" "Numerical overflow" #f #f)) + (test-assert (list? orig-stacks)) + (test-equal (length orig-stacks) + (if with-indirection 2 1)) + (for-each + (lambda (x) + (test-assert (stack? x))) + orig-stacks)))) (test-assert caught-exception)) (speaker "Well that was fun :)\n"))