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

Strenghten deleteAllSessionsOfAuthId's test even more.

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-28 01:54:32 -03:00
parent cebcea5bde
commit 172c3c01c4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
serversession/src/Web/ServerSession/Core/StorageTests.hs
View File

@ -85,10 +85,13 @@ allStorageTests storage it runIO _shouldBe shouldReturn shouldThrow = do
replicateM_ 20 $ do replicateM_ 20 $ do
master <- generateSession gen HasAuthId master <- generateSession gen HasAuthId
let Just authId = sessionAuthId master let Just authId = sessionAuthId master
preslaves <- replicateM 200 (generateSession gen NoAuthId) preslaves <-
(++) <$> replicateM 100 (generateSession gen HasAuthId)
<*> replicateM 100 (generateSession gen NoAuthId)
let slaves = (\s -> s { sessionAuthId = Just authId }) <$> preslaves let slaves = (\s -> s { sessionAuthId = Just authId }) <$> preslaves
others <- (++) <$> replicateM 30 (generateSession gen HasAuthId) others <-
<*> replicateM 30 (generateSession gen NoAuthId) (++) <$> replicateM 30 (generateSession gen HasAuthId)
<*> replicateM 30 (generateSession gen NoAuthId)
let allS = master : slaves ++ others let allS = master : slaves ++ others
-- Insert preslaves then replace them with slaves to -- Insert preslaves then replace them with slaves to