From 2dbeb181648e46c732f91023a1833d0412f03ce1 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 29 Oct 2008 22:19:10 +0000 Subject: [PATCH] Adding test case svn: r12170 --- collects/tests/web-server/private/request-test.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/web-server/private/request-test.ss b/collects/tests/web-server/private/request-test.ss index edd41a82b9..c97a862592 100644 --- a/collects/tests/web-server/private/request-test.ss +++ b/collects/tests/web-server/private/request-test.ss @@ -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"