haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Manual cookies to reduce dependencies.

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-17 00:04:02 +08:00
parent b83029dc36
commit f925fa28ec
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
yesod-core/test/Test/InternalRequest.hs
View File

@ -1,19 +1,13 @@
{-# LANGUAGE OverloadedStrings #-}
module Test.InternalRequest where
module Test.InternalRequest (internalRequestTest) where
import Data.List (nub)
import System.Random (StdGen, mkStdGen)
import Control.Applicative ((<$>))
import Blaze.ByteString.Builder
import Yesod.Internal.Request
import Network.Wai as W
import Network.Wai.Test
import Web.Cookie (renderCookies)
import Yesod.Internal.TestApi
import Test.Hspec
import Test.Hspec.HUnit
randomStringSpecs :: [Spec]
randomStringSpecs = describe "Yesod.Internal.Request.randomString"
@ -51,14 +45,14 @@ generateNonce = reqNonce r /= Nothing where
langSpecs :: [Spec]
langSpecs = describe "Yesod.Internal.Request.parseWaiRequest (reqLangs)"
[ it "respects Accept-Language" respectAcceptLang
[ it "respects Accept-Language" respectAcceptLangs
, it "respects sessions" respectSessionLang
, it "respects cookies" respectCookieLang
, it "respects queries" respectQueryLang
, it "prioritizes correctly" prioritizeLangs
]
respectAcceptLang = reqLangs r == ["accept1", "accept2"] where
respectAcceptLangs = reqLangs r == ["accept1", "accept2"] where
r = parseWaiRequest' defaultRequest
{ requestHeaders = [("Accept-Language", "accept1, accept2")] } [] Nothing g
@ -67,7 +61,7 @@ respectSessionLang = reqLangs r == ["session"] where
respectCookieLang = reqLangs r == ["cookie"] where
r = parseWaiRequest' defaultRequest
{ requestHeaders = [("Cookie", toByteString $ renderCookies [("_LANG", "cookie")])]
{ requestHeaders = [("Cookie", "_LANG=cookie")]
} [] Nothing g
respectQueryLang = reqLangs r == ["query"] where
@ -76,7 +70,7 @@ respectQueryLang = reqLangs r == ["query"] where
prioritizeLangs = reqLangs r == ["query", "cookie", "session", "accept1", "accept2"] where
r = parseWaiRequest' defaultRequest
{ requestHeaders = [ ("Accept-Language", "accept1, accept2")
, ("Cookie", toByteString $ renderCookies [("_LANG", "cookie")])
, ("Cookie", "_LANG=cookie")
]
, queryString = [("_LANG", Just "query")]
} [("_LANG", "session")] Nothing g
@ -87,3 +81,5 @@ internalRequestTest = descriptions [ randomStringSpecs
, nonceSpecs
, langSpecs
]
main = hspec internalRequestTest