From 274b6b2e7cb7110ff43f8a415e26ea61855b4965 Mon Sep 17 00:00:00 2001 From: Fintan Halpenny Date: Thu, 3 Aug 2017 20:50:00 +0100 Subject: [PATCH] Uncomment test that was failing --- test/Test.hs | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/test/Test.hs b/test/Test.hs index a0c2e93..b4e7386 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -1142,22 +1142,22 @@ main = do , (Entity p1k p1, Value 3) , (Entity p3k p3, Value 7) ] - -- it "GROUP BY works with COUNT and InnerJoin" $ - -- run $ do - -- l1k <- insert l1 - -- l2k <- insert l2 - -- l3k <- insert l3 - -- mapM_ (\k -> insert $ Deed k l1k) (map show [1..3]) - -- - -- mapM_ (\k -> insert $ Deed k l3k) (map show [4..10]) - -- - -- (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $ - -- \ ( lord `InnerJoin` deed ) -> do - -- on $ lord ^. LordId ==. deed ^. DeedOwnerId - -- groupBy (lord ^. LordId) - -- return (lord ^. LordId, count $ deed ^. DeedId) - -- liftIO $ ret `shouldBe` [ (Value l3k, Value 7) - -- , (Value l1k, Value 3) ] + it "GROUP BY works with COUNT and InnerJoin" $ + run $ do + l1k <- insert l1 + l2k <- insert l2 + l3k <- insert l3 + mapM_ (\k -> insert $ Deed k l1k) (map show [1..3]) + + mapM_ (\k -> insert $ Deed k l3k) (map show [4..10]) + + (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $ + \ ( lord `InnerJoin` deed ) -> do + on $ lord ^. LordId ==. deed ^. DeedOwnerId + groupBy (lord ^. LordId) + return (lord ^. LordId, count $ deed ^. DeedId) + liftIO $ ret `shouldBe` [ (Value l3k, Value 7) + , (Value l1k, Value 3) ] it "GROUP BY works with HAVING" $ run $ do