add another test case

bitemyapp · Jan 6, 2025 · 269945e · 269945e
1 parent 43edb06
commit 269945e
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/test/Common/Test.hs b/test/Common/Test.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedLabels #-}
 {-# LANGUAGE ConstraintKinds #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DeriveGeneric #-}
@@ -2508,7 +2509,19 @@ testOverloadedRecordDot = describe "OverloadedRecordDot" $ do
             where_ $ lord.dogs >=. just (val 10)
             where_ $ joinV lord.dogs >=. just (just (val 10))
             where_ $ lord.dogs >=. just (val (Just 10))
-            pure lord
+
+    itDb "i didn't bork ?." $ do
+        weights <- select $ do
+            (pro :& per) <- Experimental.from $
+                table @Profile
+                    `leftJoin` table @Person
+                        `Experimental.on` do
+                            \(pro :& per) ->
+                                just (pro ^. #person) ==. per ?. #id
+                                &&. just pro.person ==. per ?. PersonId
+            pure $ per ?. #weight
+        asserting $ do
+            weights `shouldBe` ([] :: [Value (Maybe Int)])