From 172c3c01c43f73cad8d26a3541b716859590fef5 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Thu, 28 May 2015 01:54:32 -0300 Subject: [PATCH] Strenghten deleteAllSessionsOfAuthId's test even more. --- serversession/src/Web/ServerSession/Core/StorageTests.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/serversession/src/Web/ServerSession/Core/StorageTests.hs b/serversession/src/Web/ServerSession/Core/StorageTests.hs index 89673ab..1b47d06 100644 --- a/serversession/src/Web/ServerSession/Core/StorageTests.hs +++ b/serversession/src/Web/ServerSession/Core/StorageTests.hs @@ -85,10 +85,13 @@ allStorageTests storage it runIO _shouldBe shouldReturn shouldThrow = do replicateM_ 20 $ do master <- generateSession gen HasAuthId 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 - others <- (++) <$> replicateM 30 (generateSession gen HasAuthId) - <*> replicateM 30 (generateSession gen NoAuthId) + others <- + (++) <$> replicateM 30 (generateSession gen HasAuthId) + <*> replicateM 30 (generateSession gen NoAuthId) let allS = master : slaves ++ others -- Insert preslaves then replace them with slaves to