From ab98799e8d8dd960b9fdb3c93c893ca3ac232793 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bjo=CC=88rn=20Buckwalter?= Date: Thu, 22 Sep 2011 22:23:41 +0800 Subject: [PATCH] Alter nonce terminology in tests too. --- yesod-core/test/Test/InternalRequest.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/yesod-core/test/Test/InternalRequest.hs b/yesod-core/test/Test/InternalRequest.hs index ba510cb5..97e90b98 100644 --- a/yesod-core/test/Test/InternalRequest.hs +++ b/yesod-core/test/Test/InternalRequest.hs @@ -30,16 +30,16 @@ g = undefined nonceSpecs :: [Spec] nonceSpecs = describe "Yesod.Internal.Request.parseWaiRequest (reqNonce)" - [ it "is Nothing for unsecure sessions" noUnsecureNonce - , it "ignores pre-existing nonce for unsecure sessions" ignoreUnsecureNonce - , it "uses preexisting nonce for secure sessions" useOldNonce - , it "generates a new nonce for secure sessions without nonce" generateNonce + [ it "is Nothing if sessions are disabled" noDisabledNonce + , it "ignores pre-existing nonce if sessions are disabled" ignoreDisabledNonce + , it "uses preexisting nonce in session" useOldNonce + , 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 -ignoreUnsecureNonce = reqNonce r == Nothing where +ignoreDisabledNonce = reqNonce r == Nothing where r = parseWaiRequest' defaultRequest [("_NONCE", "old")] Nothing g useOldNonce = reqNonce r == Just "old" where