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 p1k p1, Value 3)
, (Entity p3k p3, Value 7) ] , (Entity p3k p3, Value 7) ]
-- it "GROUP BY works with COUNT and InnerJoin" $ it "GROUP BY works with COUNT and InnerJoin" $
-- run $ do run $ do
-- l1k <- insert l1 l1k <- insert l1
-- l2k <- insert l2 l2k <- insert l2
-- l3k <- insert l3 l3k <- insert l3
-- mapM_ (\k -> insert $ Deed k l1k) (map show [1..3]) mapM_ (\k -> insert $ Deed k l1k) (map show [1..3])
--
-- mapM_ (\k -> insert $ Deed k l3k) (map show [4..10]) mapM_ (\k -> insert $ Deed k l3k) (map show [4..10])
--
-- (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $ (ret :: [(Value (Key Lord), Value Int)]) <- select $ from $
-- \ ( lord `InnerJoin` deed ) -> do \ ( lord `InnerJoin` deed ) -> do
-- on $ lord ^. LordId ==. deed ^. DeedOwnerId on $ lord ^. LordId ==. deed ^. DeedOwnerId
-- groupBy (lord ^. LordId) groupBy (lord ^. LordId)
-- return (lord ^. LordId, count $ deed ^. DeedId) return (lord ^. LordId, count $ deed ^. DeedId)
-- liftIO $ ret `shouldBe` [ (Value l3k, Value 7) liftIO $ ret `shouldBe` [ (Value l3k, Value 7)
-- , (Value l1k, Value 3) ] , (Value l1k, Value 3) ]
it "GROUP BY works with HAVING" $ it "GROUP BY works with HAVING" $
run $ do run $ do