Re: SRFI-64: test exception symbol

[Vladimir Zhbanov <vzhbanov@gmail.com>]

On Thu, Apr 30, 2020 at 06:06:21PM +0300, Vladimir Zhbanov wrote:
> Hi,
> 
> In SRFI-64, is there a way to test what exception raised using
> test-error() or anything else?  I know about looking into test
> logs (if 'test-error' is used), though that's not what I need.  I
> need a way to be sure a test raises the exception it should raise.

To clarify things a little: in our project (in one of a dozen
test-suites :)) we already have a function that does checking of
what I'm asking about:

(define (%assert-thrown key thunk)
  (catch key
         (lambda ()
           (thunk)
           (throw 'test-failed-exception
                  (simple-format #f "  assert-thrown: expected exception: ~S"
                                 key)))
         (lambda (key . args) #t)))

Is there something like this in SRFI-64?

-- 
  Vladimir

(λ)επτόν EDA — https://github.com/lepton-eda