#lang scheme/base (require srfi/26/cut "accessor-test.ss" "command-test.ss" "core.ss" "delirium.ss" ; required for mzc only "selector-test.ss" "test-base.ss") (define all-delirium-tests (test-suite "delirium" '#:after (cut open/wait (lambda (request) (send/suspend/dispatch (lambda (embed-url) (make-html-response (xml (html (body (p "Tests complete.") (p "Check the command line for the results."))))))))) accessor-tests command-tests selector-tests)) ; Provide statements --------------------------- (provide all-delirium-tests)