racket/collects/web-server/default-web-root/servlets/tests/new-suite/none-test.ss
2007-05-01 03:25:37 +00:00

11 lines
373 B
Scheme

(module none-test mzscheme
(require (lib "none.ss" "web-server" "managers"))
(provide (all-defined))
(define interface-version 'v2-transitional)
(define manager (create-none-manager
(lambda (failed-request)
`(html (body (h2 "Error"))))))
(define (start initial-request)
`(html (body (h2 "Look Ma, No Instance!")))))