Add AsyncResult bindRequire functions with tests

Author: sheridanchris

src/FsToolkit.ErrorHandling/AsyncResult.fs

@@ -333,3 +333,19 @@ module AsyncResult =
     let inline ofResult (x: Result<'ok, 'error>) : Async<Result<'ok, 'error>> =
         x
         |> Async.singleton
+
+    /// Bind the AsyncResult and requireSome on the inner option value.
+    let inline bindRequireSome error x =
+        x
+        |> bind (
+            Result.requireSome error
+            >> Async.singleton
+        )
+
+    /// Bind the AsyncResult and requireNone on the inner option value.
+    let inline bindRequireNone error x =
+        x
+        |> bind (
+            Result.requireNone error
+            >> Async.singleton
+        )

tests/FsToolkit.ErrorHandling.Tests/AsyncResult.fs

@@ -795,6 +795,27 @@ let zipErrorTests =
     ]
 
 
+let asyncResultBindRequireTests =
+    testList "AsyncResult Bind + Require Tests" [
+        testCaseAsync "bindRequireNone"
+        <| async {
+            do!
+                Some "john_doe"
+                |> AsyncResult.ok
+                |> AsyncResult.bindRequireNone "User exists"
+                |> Expect.hasAsyncErrorValue "User exists"
+        }
+
+        testCaseAsync "bindRequireSome"
+        <| async {
+            do!
+                Some "john_doe"
+                |> AsyncResult.ok
+                |> AsyncResult.bindRequireSome "User doesn't exist"
+                |> Expect.hasAsyncOkValue "john_doe"
+        }
+    ]
+
 let allTests =
     testList "Async Result tests" [
         mapTests
@@ -828,4 +849,5 @@ let allTests =
         asyncResultOperatorTests
         zipTests
         zipErrorTests
+        asyncResultBindRequireTests
     ]