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

Cleanup

Browse Source
This commit is contained in:
Chris Allen 2017-05-25 11:19:41 -05:00
parent 5609d78de4
commit 14a28ab32d
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Test.hs
View File

@ -1098,20 +1098,15 @@ main = do
l1k <- insert l1 l1k <- insert l1
l2k <- insert l2 l2k <- insert l2
l3k <- insert l3 l3k <- insert l3
-- liftIO $ putStrLn "****** l3 ******"
mapM_ (\k -> insert $ Deed k l1k) (map show [1..3]) mapM_ (\k -> insert $ Deed k l1k) (map show [1..3])
-- liftIO $ putStrLn "****** l1k ******"
mapM_ (\k -> insert $ Deed k l3k) (map show [4..10]) mapM_ (\k -> insert $ Deed k l3k) (map show [4..10])
-- liftIO $ putStrLn "****** l3k ******"
(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 $ putStrLn "****** ret ******"
-- liftIO $ print ret
liftIO $ ret `shouldBe` [ (Value l3k, Value 7) liftIO $ ret `shouldBe` [ (Value l3k, Value 7)
, (Value l1k, Value 3) ] , (Value l1k, Value 3) ]