suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

redirect-to tests

Browse Source 
svn: r6611
This commit is contained in:
Jay McCarthy 2007-06-12 23:21:24 +00:00
parent 5d52be919a
commit 3cba6a8bfc
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/web-server/tests/servlet/helpers-test.ss
View File

@ -20,13 +20,27 @@
"Basic (succ)" "Basic (succ)"
(check-true (with-errors-to-browser (lambda (x) x) (lambda () #t))))) (check-true (with-errors-to-browser (lambda (x) x) (lambda () #t)))))
; XXX Test redirection status
; XXX Test optional headers
(test-suite (test-suite
"redirect-to" "redirect-to"
(test-case (test-equal? "Code (temp)"
"Basic" (response/basic-code (redirect-to "http://test.com/foo"))
(check-pred response/full? (redirect-to "http://test.com/foo")))) 302)
(test-equal? "Message (temp)"
(response/basic-message (redirect-to "http://test.com/foo"))
"Moved Temporarily")
(test-equal? "Code"
(response/basic-code (redirect-to "http://test.com/foo" permanently))
301)
(test-equal? "Message"
(response/basic-message (redirect-to "http://test.com/foo" permanently))
"Moved Permanently")
(test-equal? "URL"
(response/basic-extras (redirect-to "http://test.com/foo"))
`((Location . "http://test.com/foo")))
(test-equal? "Headers"
(response/basic-extras (redirect-to "http://test.com/foo" #:headers `((Header . "Value"))))
`((Location . "http://test.com/foo")
(Header . "Value"))))
(test-suite (test-suite
"redirection-status?" "redirection-status?"