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

Merge pull request #61 from erikd/master

Browse Source 
Test.hs : Reduce chance of 'orderBy [rand]' randomly failing.
This commit is contained in:
Felipe Lessa 2014-04-13 23:50:40 -03:00
commit 0f9a044602
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Test.hs
View File

@ -802,6 +802,10 @@ main = do
_ <- insert p2 _ <- insert p2
_ <- insert p3 _ <- insert p3
_ <- insert p4 _ <- insert p4
_ <- insert $ Person "Jane" Nothing
_ <- insert $ Person "Mark" Nothing
_ <- insert $ Person "Sarah" 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)