Sorry to be thinking out loud here…
I thought the reason Alex might be using `foldts-test-suite` instead of
`fold-test-results` is because the latter automatically runs each test but
the former leaves that in programmatic control. I thought this would enable
me to catch exceptions, thus (using Alex's really good names for the
pieces). E.g.:
(define-test-suite hw
(check-equal? 1 1)
(check-equal? 1 (/ 1 0))
(check-equal? 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)
(let ([outcome (with-handlers ([exn:fail?
(λ (e)
(println "got here")
(cons 'test-failed seed))])
(run-test-case name action))])
(cons outcome seed)))
empty
hw)
Unfortunately, the `with-handers` does not seem to be taking effect at all:
the runner still halts with an error. Can anyone see what I'm missing?
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 racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/CAJUf2yS4i3McynuqnAtGcJXQVuR%3D%3DbSBZCTaQa4H06rNmd%2BwCQ%40mail.gmail.com.
