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

Remove non-determinism from a test.

Browse Source
This commit is contained in:
Felipe Lessa 2015-06-19 21:38:08 -03:00
parent 11555a9095
commit a4a04db98c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/Test.hs
View File

@ -1147,6 +1147,7 @@ main = do
where_ $ exists $ where_ $ exists $
from $ \bp -> do from $ \bp -> do
where_ (bp ^. BlogPostAuthorId ==. p ^. PersonId) where_ (bp ^. BlogPostAuthorId ==. p ^. PersonId)
orderBy [asc (p ^. PersonName)]
return p return p
liftIO $ ret `shouldBe` [ Entity p1k p1 liftIO $ ret `shouldBe` [ Entity p1k p1
, Entity p3k p3 ] , Entity p3k p3 ]