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

Alter nonce terminology in tests too.

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-22 22:23:41 +08:00
parent 39ef74cb10
commit ab98799e8d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,16 +30,16 @@ g = undefined
nonceSpecs :: [Spec] nonceSpecs :: [Spec]
nonceSpecs = describe "Yesod.Internal.Request.parseWaiRequest (reqNonce)" nonceSpecs = describe "Yesod.Internal.Request.parseWaiRequest (reqNonce)"
[ it "is Nothing for unsecure sessions" noUnsecureNonce [ it "is Nothing if sessions are disabled" noDisabledNonce
, it "ignores pre-existing nonce for unsecure sessions" ignoreUnsecureNonce , it "ignores pre-existing nonce if sessions are disabled" ignoreDisabledNonce
, it "uses preexisting nonce for secure sessions" useOldNonce , it "uses preexisting nonce in session" useOldNonce
, it "generates a new nonce for secure sessions without nonce" generateNonce , it "generates a new nonce for sessions without nonce" generateNonce
] ]
noUnsecureNonce = reqNonce r == Nothing where noDisabledNonce = reqNonce r == Nothing where
r = parseWaiRequest' defaultRequest [] Nothing g r = parseWaiRequest' defaultRequest [] Nothing g
ignoreUnsecureNonce = reqNonce r == Nothing where ignoreDisabledNonce = reqNonce r == Nothing where
r = parseWaiRequest' defaultRequest [("_NONCE", "old")] Nothing g r = parseWaiRequest' defaultRequest [("_NONCE", "old")] Nothing g
useOldNonce = reqNonce r == Just "old" where useOldNonce = reqNonce r == Just "old" where