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