| (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)) |