From c27597573d5d4498ac2c37e55275e02688e0c306 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Tue, 16 Jun 2015 13:39:47 -0300 Subject: [PATCH] loadSession uses getCurrentTime, don't use fakenow (fixes #1). --- serversession/tests/Main.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/serversession/tests/Main.hs b/serversession/tests/Main.hs index 2188a31..79f75b8 100644 --- a/serversession/tests/Main.hs +++ b/serversession/tests/Main.hs @@ -117,17 +117,18 @@ main = hspec $ parallel $ do checkEmptySession ret it "returns the session from the storage when the session ID refers to an existing session" $ do + now <- TI.getCurrentTime let session = Session { sessionKey = S "123456789-123456789-1234" , sessionAuthId = Just authId , sessionData = mkSessionMap [("a", "b"), ("c", "d")] - , sessionCreatedAt = TI.addUTCTime (-10) fakenow - , sessionAccessedAt = TI.addUTCTime (-5) fakenow + , sessionCreatedAt = TI.addUTCTime (-10) now + , sessionAccessedAt = TI.addUTCTime (-5) now } authId = "auth-id" st <- createState =<< prepareMockStorage [session] - (retSessionMap, SaveSessionToken msession _now) <- - loadSession st (Just $ B8.pack $ T.unpack $ unS $ sessionKey session) + let key = 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) msession `shouldBe` Just session