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

Uncomment test that was failing

Browse Source
This commit is contained in:
Fintan Halpenny 2017-08-03 20:50:00 +01:00
parent 8eab68a8d3
commit 274b6b2e7c
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
test/Test.hs
View File

@ -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