Thanks to a helpful reply from Matthias I came across this posting

https://github.com/racket/rackunit/pull/107#issuecomment-480808330

which pointed out "The *test* forms are the things that wrap evaluation,
catch errors and continue, etc."

If I rewrite the above as

(define-test-suite hw
  (test-equal? "1" 1 1)
  (test-equal? "2" 1 (/ 1 0))
  (test-equal? "3" 1 (error "raised an error"))
  (test-equal? "4" 1 2))

(foldts-test-suite
 (λ (suite name before after seed) (before) seed)
 (λ (suite name before after seed kid-seed) (after) (append seed kid-seed))
 (λ (case name action seed) (cons (run-test-case name action) seed))
 empty
 hw)

then I don't need the exception handler at all (it appears…). So that may
be most of what I need? Not sure if I'm missing something else, I'll report
back if I am. (-:

Shriram

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To view this discussion on the web visit 
https://groups.google.com/d/msgid/racket-users/CAJUf2yRv3zYVZOP%3Dnxwvp1%2Bd9e-CEB5N%3D59fs%2Bjmxfo6fB5Oqg%40mail.gmail.com.

Reply via email to