(module dummy mzscheme (require net/url web-server/dispatchers/dispatch web-server/servlet) (provide interface-version timeout start) (define interface-version (quote v1)) (define timeout +inf.0) (define (start initial-request) (if (equal? (url->string (request-uri initial-request)) "/dummy.txt") (next-dispatcher) (make-response/full 200 "OK" (current-seconds) #"text/plain" (quote ()) (quote ("foo\r\n"))))))