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

test case for multiple DISTINCT ON columns

Browse Source
This commit is contained in:
Greg Weber 2015-06-19 17:19:45 -07:00
parent d96b3088f3
commit ba9791b6b4
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
stack.yaml
View File

@ -1 +1,4 @@
flags:
esqueleto:
postgresql: true
resolver: nightly-2015-06-09 resolver: nightly-2015-06-09

2
test/Test.hs
View File

@ -818,7 +818,7 @@ main = do
, BlogPost "C" p2k ] , BlogPost "C" p2k ]
ret <- select $ ret <- select $
from $ \bp -> from $ \bp ->
distinctOn [bp ^. BlogPostAuthorId] $ do distinctOn [bp ^. BlogPostAuthorId, bp ^. BlogPostTitle] $ do
orderBy [asc (bp ^. BlogPostAuthorId), desc (bp ^. BlogPostTitle)] orderBy [asc (bp ^. BlogPostAuthorId), desc (bp ^. BlogPostTitle)]
return bp return bp
liftIO $ ret `shouldBe` sortBy (comparing (blogPostAuthorId . entityVal)) [bpB, bpC] liftIO $ ret `shouldBe` sortBy (comparing (blogPostAuthorId . entityVal)) [bpB, bpC]