Add JobResult bindRequire functions with tests

Author: sheridanchris

src/FsToolkit.ErrorHandling.JobResult/JobResult.fs

@@ -249,3 +249,19 @@ module JobResult =
     let inline ofResult (x: Result<_, _>) =
         x
         |> Job.singleton
+
+    /// Bind the JobResult and requireSome on the inner option value.
+    let inline bindRequireSome error x =
+        x
+        |> bind (
+            Result.requireSome error
+            >> Job.singleton
+        )
+
+    /// Bind the JobResult and requireNone on the inner option value.
+    let inline bindRequireNone error x =
+        x
+        |> bind (
+            Result.requireNone error
+            >> Job.singleton
+        )

tests/FsToolkit.ErrorHandling.JobResult.Tests/JobResult.fs

@@ -753,6 +753,27 @@ let zipErrorTests =
             Expect.hasJobValue (Error("Bad1", "Bad2")) v
     ]
 
+[<Tests>]
+let bindRequireTests =
+    testList "JobResult Bind + Require tests" [
+        testCaseJob "bindRequireNone"
+        <| job {
+            return!
+                Some "john_doe"
+                |> JobResult.ok
+                |> JobResult.bindRequireNone "user exists"
+                |> Expect.hasJobErrorValue "user exists"
+        }
+
+        testCaseJob "bindRequireSome"
+        <| job {
+            return!
+                Some "john_doe"
+                |> JobResult.ok
+                |> JobResult.bindRequireSome "user doesn't exists"
+                |> Expect.hasJobOkValue "john_doe"
+        }
+    ]
 
 type CreatePostResult =
     | PostSuccess of NotifyNewPostRequest