serversession 1.0 → 1.0.1

raw patch · 2 files changed

+6/−5 lines, 2 filesdep ~base64-bytestring

Dependency ranges changed: base64-bytestring

Files

• serversession.cabal +1/−1
• tests/Main.hs +5/−4

@@ -1,5 +1,5 @@ name:            serversession-version:         1.0+version:         1.0.1 license:         MIT license-file:    LICENSE author:          Felipe Lessa <felipe.lessa@gmail.com>

@@ -117,17 +117,18 @@       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