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

Adding test case

Browse Source 
svn: r12170
This commit is contained in:
Jay McCarthy 2008-10-29 22:19:10 +00:00
parent ac9944a818
commit 2dbeb18164
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/web-server/private/request-test.ss
View File

@ -41,7 +41,10 @@
"Headers"
(test-equal? "Simple" (header-value (headers-assq #"key" (list (make-header #"key" #"val")))) #"val")
(test-false "Not present" (headers-assq #"key" (list)))
(test-equal? "Case" (header-value (headers-assq* #"Key" (list (make-header #"key" #"val")))) #"val"))
(test-false "Case (not present)" (headers-assq* #"Key" (list)))
(test-equal? "Case" (header-value (headers-assq* #"Key" (list (make-header #"key" #"val")))) #"val")
(test-equal? "Case (not first)"
(header-value (headers-assq* #"Key" (list (make-header #"key1" #"val") (make-header #"key" #"val")))) #"val"))
(test-suite
"Bindings"