Fix some shouldSatisfy predicates that were always True (#404)

* Add dependencies to nix packages in stack.yaml * Fix some shouldSatisfy predicates that were always True
bitemyapp · Oct 17, 2024 · 603e083 · 603e083
1 parent eb719e7
commit 603e083
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/test/Common/Record.hs b/test/Common/Record.hs
@@ -271,7 +271,7 @@ testDeriveEsqueletoRecord = describe "deriveEsqueletoRecord" $ do
                                         , myAddress = (Just (Entity addr2 Address {addressAddress = "30-50 Feral Hogs Rd"}))
                                         }
                               )) -> True
-                 _ -> True)
+                 _ -> False)
 
     itDb "can can handle joins on records with Nothing" $ do
         setup
@@ -291,7 +291,7 @@ testDeriveEsqueletoRecord = describe "deriveEsqueletoRecord" $ do
                                         , myAddress = (Just (Entity addr2 Address {addressAddress = "30-50 Feral Hogs Rd"}))
                                         }
                               )) -> True
-                 _ -> True)
+                 _ -> False)
 
     itDb "can left join on nested records" $ do
         setup
@@ -312,7 +312,7 @@ testDeriveEsqueletoRecord = describe "deriveEsqueletoRecord" $ do
                                                                     , myAddress = (Just (Entity addr2 Address {addressAddress = "30-50 Feral Hogs Rd"}))
                                                                     }
                                               })) -> True
-                 _ -> True)
+                 _ -> False)
 
     itDb "can handle multiple left joins on the same record" $ do
         setup
@@ -331,7 +331,7 @@ testDeriveEsqueletoRecord = describe "deriveEsqueletoRecord" $ do
                                                                     , myAddress = (Just (Entity addr2 Address {addressAddress = "30-50 Feral Hogs Rd"}))
                                                                     }
                                               })) -> True
-                 _ -> True)
+                 _ -> False)
         liftIO $ sortedRecords !! 1
           `shouldSatisfy`
           (\case (_ :& _ :& Just (MyNestedRecord {myRecord = MyRecord {myName = "Rebecca", myAddress = Nothing}})) -> True