From 2f5715470dc7b74dc256e1808acff53b4575cc84 Mon Sep 17 00:00:00 2001 From: Fintan Halpenny Date: Fri, 4 Aug 2017 15:16:31 +0100 Subject: [PATCH] The order of the returned values weren't deterministic so switched to shouldMatchList --- test/Test.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/test/Test.hs b/test/Test.hs index 0e09d45..5616f71 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -1158,9 +1158,8 @@ main = 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) ] - + liftIO $ ret `shouldMatchList` [ (Value l3k, Value 7) + , (Value l1k, Value 3) ] it "GROUP BY works with HAVING" $ run $ do p1k <- insert p1