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

2017-08-04 15:16:31 +01:00 · 2017-08-04 15:16:31 +01:00 · 2f5715470d
commit 2f5715470d
parent 406c1ef46c
1 changed files with 2 additions and 3 deletions
--- 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