(define (fold-test-results suite-fn case-fn seed test) |
(foldts-test-suite |
(lambda (suite name before after seed) |
(before) |
(suite-fn name seed)) |
(lambda (suite name before after seed kid-seed) |
(after) |
kid-seed) |
(lambda (case name action seed) |
(case-fn |
(run-test-case name action) |
seed)) |
seed |
test)) |