Removing tests that are handled elsewhere
svn: r6525
This commit is contained in:
parent
bdd86a69e4
commit
f6bf4e963d
|
@ -1,14 +0,0 @@
|
||||||
(module b-module mzscheme
|
|
||||||
(provide interface-version timeout start)
|
|
||||||
(require (lib "servlet.ss" "web-server"))
|
|
||||||
|
|
||||||
(define interface-version 'v1)
|
|
||||||
|
|
||||||
(define timeout +inf.0)
|
|
||||||
|
|
||||||
; start : request -> response
|
|
||||||
(define (start initial-request)
|
|
||||||
`(html (head (title "A Test Page"))
|
|
||||||
(body ([bgcolor "white"])
|
|
||||||
(p ,(format "Here are the initial bindings: ~v"
|
|
||||||
(request-bindings initial-request)))))))
|
|
|
@ -1 +0,0 @@
|
||||||
(require "not-there-on-purpose.ss")
|
|
|
@ -1,6 +0,0 @@
|
||||||
(module bad-return mzscheme
|
|
||||||
(provide (all-defined))
|
|
||||||
(define interface-version 'v1)
|
|
||||||
(define timeout +inf.0)
|
|
||||||
(define (start initial-request)
|
|
||||||
5))
|
|
|
@ -1,6 +0,0 @@
|
||||||
(module broken mzscheme
|
|
||||||
(provide (all-defined))
|
|
||||||
(define interface-version 'v1)
|
|
||||||
(define timeout +inf.0)
|
|
||||||
(define (start initial-request)
|
|
||||||
(raise 'kablooie)))
|
|
|
@ -1 +0,0 @@
|
||||||
5
|
|
Loading…
Reference in New Issue
Block a user