Add defaultError to AsyncResult/TaskResult/JobResult

Author: sep2

src/FsToolkit.ErrorHandling.JobResult/JobResult.fs

@@ -109,6 +109,11 @@ module JobResult =
   let defaultValue ifError jobResult =
     jobResult |> Job.map (Result.defaultValue ifError)
 
+  /// Extracts the contained value of an job-wrapped result if Error, otherwise
+  /// uses ifOk.
+  let defaultError ifOk jobResult =
+    jobResult |> Job.map (Result.defaultError ifOk)
+
   /// Extracts the contained value of an job-wrapped result if Ok, otherwise
   /// evaluates ifErrorThunk and uses the result.
   let defaultWith ifErrorThunk jobResult =

src/FsToolkit.ErrorHandling.TaskResult/TaskResult.fs

@@ -103,6 +103,11 @@ module TaskResult =
   let defaultValue ifError taskResult =
     taskResult |> Task.map (Result.defaultValue ifError)
 
+  /// Extracts the contained value of an task-wrapped result if Error, otherwise
+  /// uses ifOk.
+  let defaultError ifOk taskResult =
+    taskResult |> Task.map (Result.defaultError ifOk)
+
   /// Extracts the contained value of an task-wrapped result if Ok, otherwise
   /// evaluates ifErrorThunk and uses the result.
   let defaultWith ifErrorThunk taskResult =

src/FsToolkit.ErrorHandling/AsyncResult.fs

@@ -112,6 +112,11 @@ module AsyncResult =
   let defaultValue ifError asyncResult =
     asyncResult |> Async.map (Result.defaultValue ifError)
 
+  /// Extracts the contained value of an async-wrapped result if Error, otherwise
+  /// uses ifOk.
+  let defaultError ifOk asyncResult =
+    asyncResult |> Async.map (Result.defaultError ifOk)
+
   /// Extracts the contained value of an async-wrapped result if Ok, otherwise
   /// evaluates ifErrorThunk and uses the result.
   let defaultWith ifErrorThunk asyncResult =

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

@@ -306,6 +306,18 @@ let defaultValueTests =
       Expect.hasJobValue 43 v
   ]
 
+[<Tests>]
+let defaultErrorTests = 
+  testList "JobResult.defaultError Tests" [
+    testCase "defaultError returns the error value" <| fun _ ->
+      let v = JobResult.defaultError 43 (toJob (Error 42))
+      Expect.hasJobValue 42 v
+
+    testCase "defaultError returns the given value for Ok" <| fun _ ->
+      let v = JobResult.defaultError 43 (toJob (Ok 42))
+      Expect.hasJobValue 43 v
+  ]
+
 [<Tests>]
 let defaultWithTests =
   testList "JobResult.defaultWith Tests" [

tests/FsToolkit.ErrorHandling.TaskResult.Tests/TaskResult.fs

@@ -306,6 +306,18 @@ let defaultValueTests =
       Expect.hasTaskValue 43 v
   ]
 
+[<Tests>]
+let defaultErrorTests = 
+  testList "TaskResult.defaultError Tests" [
+    testCase "defaultError returns the error value" <| fun _ ->
+      let v = TaskResult.defaultValue 43 (toTask (Error 42))
+      Expect.hasTaskValue 42 v
+
+    testCase "defaultError returns the given value for Ok" <| fun _ ->
+      let v = TaskResult.defaultValue 43 (toTask (Ok 42))
+      Expect.hasTaskValue 43 v
+  ]
+
 [<Tests>]
 let defaultWithTests =
   testList "TaskResult.defaultWith Tests" [

tests/FsToolkit.ErrorHandling.Tests/AsyncResult.fs

@@ -317,6 +317,18 @@ let defaultValueTests =
   ]
 
 
+let defaultErrorTests = 
+  testList "AsyncResult.defaultError Tests" [
+    testCaseAsync "defaultError returns the error value" <| 
+      (let v = AsyncResult.defaultError 43 (toAsync (Error 42))
+      Expect.hasAsyncValue 42 v)
+
+    testCaseAsync "defaultError returns the given value for Ok" <| 
+      (let v = AsyncResult.defaultError 43 (toAsync (Ok 42))
+      Expect.hasAsyncValue 43 v)
+  ]
+
+
 let defaultWithTests =
   testList "AsyncResult.defaultWith Tests" [
     testCaseAsync "defaultWith returns the ok value" <|