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

The order of the returned values weren't deterministic so switched to shouldMatchList

Browse Source
This commit is contained in:
Fintan Halpenny 2017-08-04 15:16:31 +01:00
parent 406c1ef46c
commit 2f5715470d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Test.hs
View File

@ -1158,9 +1158,8 @@ main = 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 `shouldMatchList` [ (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
p1k <- insert p1 p1k <- insert p1