Permalink
Browse files

Modify test suite for Accept parser

Add cases for extra params and for sorting by specificity.
  • Loading branch information...
1 parent ecd53e3 commit 16e70b8a1a692698b7915d4dac68a5804526b5f9 @singpolyma committed Oct 10, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 wai-extra/test/WaiExtraTest.hs
@@ -97,8 +97,8 @@ caseParseQueryStringQM = do
caseParseHttpAccept :: Assertion
caseParseHttpAccept = do
- let input = "text/plain; q=0.5, text/html, text/x-dvi; q=0.8, text/x-c"
- expected = ["text/html", "text/x-c", "text/x-dvi", "text/plain"]
+ let input = "text/plain; q=0.5, text/html;charset=utf-8, text/*;q=0.8;ext=blah, text/x-dvi; q=0.8, text/x-c"
+ expected = ["text/html;charset=utf-8", "text/x-c", "text/x-dvi", "text/*", "text/plain"]
expected @=? parseHttpAccept input
parseRequestBody' :: BackEnd L.ByteString

0 comments on commit 16e70b8

Please sign in to comment.