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

Lower the chance of false negatives even more.

Browse Source
This commit is contained in:
Felipe Lessa 2014-04-13 23:55:13 -03:00
parent 0f9a044602
commit 80d3e7c9cd
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Test.hs
View File

@ -798,6 +798,7 @@ main = do
describe "rand works" $ do describe "rand works" $ do
it "returns result in random order" $ it "returns result in random order" $
run $ do run $ do
replicateM_ 20 $ do
_ <- insert p1 _ <- insert p1
_ <- insert p2 _ <- insert p2
_ <- insert p3 _ <- insert p3
@ -805,7 +806,7 @@ main = do
_ <- insert $ Person "Jane" Nothing _ <- insert $ Person "Jane" Nothing
_ <- insert $ Person "Mark" Nothing _ <- insert $ Person "Mark" Nothing
_ <- insert $ Person "Sarah" Nothing _ <- insert $ Person "Sarah" Nothing
_ <- insert $ Person "Paul" Nothing insert $ Person "Paul" Nothing
ret1 <- fmap (map unValue) $ select $ from $ \p -> do ret1 <- fmap (map unValue) $ select $ from $ \p -> do
orderBy [rand] orderBy [rand]
return (p ^. PersonId) return (p ^. PersonId)