test case for multiple DISTINCT ON columns

2015-06-19 17:19:45 -07:00 · 2015-06-19 17:19:45 -07:00 · ba9791b6b4
commit ba9791b6b4
parent d96b3088f3
2 changed files with 4 additions and 1 deletions
--- a/stack.yaml
+++ b/stack.yaml
@ -1 +1,4 @@
+flags:
+  esqueleto:
+    postgresql: true
 resolver: nightly-2015-06-09
--- a/test/Test.hs
+++ b/test/Test.hs
@ -818,7 +818,7 @@ main = do
            , BlogPost "C" p2k ]
          ret <- select $
                 from $ \bp ->
-                 distinctOn [bp ^. BlogPostAuthorId] $ do
+                 distinctOn [bp ^. BlogPostAuthorId, bp ^. BlogPostTitle] $ do
                 orderBy [asc (bp ^. BlogPostAuthorId), desc (bp ^. BlogPostTitle)]
                 return bp
          liftIO $ ret `shouldBe` sortBy (comparing (blogPostAuthorId . entityVal)) [bpB, bpC]