7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
71 lines
2.1 KiB
Scheme
71 lines
2.1 KiB
Scheme
;; Mike Burns, July 28th, 2004, netgeek@speakeasy.net
|
|
;; Test the error messages for both headers and content.
|
|
(module test-errors mzscheme
|
|
(require schemeunit/test
|
|
net/url
|
|
"assertions.ss"
|
|
)
|
|
|
|
(provide test-errors)
|
|
|
|
(define test-errors
|
|
(make-test-suite
|
|
"Test the error messages for both headers and content"
|
|
|
|
(make-test-case
|
|
"404 with an absolute filename"
|
|
(assert-status-number "/does-not-exist" 404))
|
|
|
|
(make-test-case
|
|
"404 with a relative filename"
|
|
(assert-status-number "does-not-exist" 404))
|
|
|
|
(make-test-case
|
|
"404 with an absolute directory name"
|
|
(assert-status-number "/does-not-exist/" 404))
|
|
|
|
(make-test-case
|
|
"404 with an relative directory name"
|
|
(assert-status-number "does-not-exist/" 404))
|
|
|
|
(make-test-case
|
|
"404 with an absolute servlet"
|
|
(assert-status-number "/servlets/does-not-exist" 404))
|
|
|
|
; Not in suite.ss
|
|
;(make-test-case
|
|
; "Unit servlet not returning a response"
|
|
; ...)
|
|
;;; TODO check headers
|
|
|
|
(make-test-case
|
|
"Require failure"
|
|
(assert-with-server
|
|
"/servlets/bad-require.ss"
|
|
(lambda (http-port)
|
|
(purify-port http-port) ;; For the effect
|
|
(input-port-equal?
|
|
http-port
|
|
(open-input-string
|
|
(format
|
|
(string-append
|
|
"Servlet didn't load.~ndefault-load-handler: cannot open "
|
|
"input file: \"~a\" (No such file or directory; "
|
|
"errno=2)")
|
|
(path->string
|
|
(build-path web-root
|
|
"servlets"
|
|
"I-do-not-exist.ss"))))))))
|
|
|
|
(make-test-case
|
|
"Exception raised"
|
|
(assert-serve "/servlets/raise-exception.ss"
|
|
(path->string
|
|
(build-path web-root
|
|
"htdocs"
|
|
"servlet-output"
|
|
"raise-exception.ss"))
|
|
"text/plain"))))
|
|
|
|
)
|