Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Modify test suite for Accept parser

Add cases for extra params and for sorting by specificity.
  • Loading branch information...
commit 16e70b8a1a692698b7915d4dac68a5804526b5f9 1 parent ecd53e3
Stephen Paul Weber authored

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. +2 2 wai-extra/test/WaiExtraTest.hs
4 wai-extra/test/WaiExtraTest.hs
@@ -97,8 +97,8 @@ caseParseQueryStringQM = do
97 97
98 98 caseParseHttpAccept :: Assertion
99 99 caseParseHttpAccept = do
100   - let input = "text/plain; q=0.5, text/html, text/x-dvi; q=0.8, text/x-c"
101   - expected = ["text/html", "text/x-c", "text/x-dvi", "text/plain"]
  100 + 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"
  101 + expected = ["text/html;charset=utf-8", "text/x-c", "text/x-dvi", "text/*", "text/plain"]
102 102 expected @=? parseHttpAccept input
103 103
104 104 parseRequestBody' :: BackEnd L.ByteString

0 comments on commit 16e70b8

Please sign in to comment.
Something went wrong with that request. Please try again.