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

Fewer stress tests but to the same effect.

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-28 13:16:25 -03:00
parent ec4623da34
commit a35a10db0d
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -184,23 +184,17 @@ allStorageTests storage it runIO parallel _shouldBe shouldReturn shouldThrow = d
run (deleteSession storage sid) run (deleteSession storage sid)
run (getSession storage sid) `shouldReturn` Nothing run (getSession storage sid) `shouldReturn` Nothing
mib = 1024*1024 mib = 1024*1024
showT = T.pack . show
it "supports a session with one million small keys" $
trySessionMap [(showT i, "bar") | i <- [1..1000000]]
it "supports a session with one 1 MiB value" $ it "stress test: one million small keys" $
trySessionMap [("foo", B.replicate mib 70)] trySessionMap [(T.pack (show i), "bar") | i <- [1..(1000000 :: Int)]]
it "supports a session with one hundred 1 MiB values" $ it "stress test: one 100 MiB value" $
trySessionMap [(showT i, B.replicate mib (toEnum i)) | i <- [0..99]]
it "supports a session with one 100 MiB value" $
trySessionMap [("foo", B.replicate (100 * mib) 70)] trySessionMap [("foo", B.replicate (100 * mib) 70)]
it "supports a session with a 1 MiB key" $ it "stress test: one 1 MiB key" $
trySessionMap [(T.replicate mib "x", "foo")] trySessionMap [(T.replicate mib "x", "foo")]
it "supports a session with the key having all possible Unicode code points and value having all possible byte values" $ it "stress test: key with all possible Unicode code points and value with all possible byte values" $
trySessionMap [(T.pack [minBound..maxBound], B.pack [minBound..maxBound])] trySessionMap [(T.pack [minBound..maxBound], B.pack [minBound..maxBound])]