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

loadSession uses getCurrentTime, don't use fakenow (fixes #1).

Browse Source
This commit is contained in:
Felipe Lessa 2015-06-16 13:39:47 -03:00
parent 511dd91402
commit c27597573d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
serversession/tests/Main.hs
View File

@ -117,17 +117,18 @@ main = hspec $ parallel $ do
checkEmptySession ret checkEmptySession ret
it "returns the session from the storage when the session ID refers to an existing session" $ do it "returns the session from the storage when the session ID refers to an existing session" $ do
now <- TI.getCurrentTime
let session = Session let session = Session
{ sessionKey = S "123456789-123456789-1234" { sessionKey = S "123456789-123456789-1234"
, sessionAuthId = Just authId , sessionAuthId = Just authId
, sessionData = mkSessionMap [("a", "b"), ("c", "d")] , sessionData = mkSessionMap [("a", "b"), ("c", "d")]
, sessionCreatedAt = TI.addUTCTime (-10) fakenow , sessionCreatedAt = TI.addUTCTime (-10) now
, sessionAccessedAt = TI.addUTCTime (-5) fakenow , sessionAccessedAt = TI.addUTCTime (-5) now
} }
authId = "auth-id" authId = "auth-id"
st <- createState =<< prepareMockStorage [session] st <- createState =<< prepareMockStorage [session]
(retSessionMap, SaveSessionToken msession _now) <- let key = B8.pack $ T.unpack $ unS $ sessionKey session
loadSession st (Just $ B8.pack $ T.unpack $ unS $ sessionKey session) (retSessionMap, SaveSessionToken msession _now) <- loadSession st (Just key)
retSessionMap `shouldBe` onSM (HM.insert (authKey st) authId) (sessionData session) retSessionMap `shouldBe` onSM (HM.insert (authKey st) authId) (sessionData session)
msession `shouldBe` Just session msession `shouldBe` Just session