add unit tests

Author: meridaio

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

@@ -452,6 +452,25 @@ let teeErrorIfTests =
       Expect.equal !foo "foo" ""
   ]
 
+[<Tests>]
+let catchTests =
+  let f (e : exn) = e.Message
+  let jobThrow () = job {
+    failwith err
+    return Error ""
+  }
+
+  testList "TaskResult.catch test" [
+    testCase "catch returns success for Ok" <| fun _ ->
+      Expect.hasJobOkValue 42 (JobResult.catch f (toJob (Ok 42)))
+
+    testCase "catch returns mapped Error for exception" <| fun _ ->
+      Expect.hasJobErrorValue err (JobResult.catch f (jobThrow ()))
+
+    testCase "catch returns unmapped error without exception" <| fun _ ->
+      Expect.hasJobErrorValue "unmapped" (JobResult.catch f (toJob (Error "unmapped")))
+  ]
+
 type CreatePostResult =
 | PostSuccess of NotifyNewPostRequest
 | NotAllowedToPost

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

@@ -452,6 +452,25 @@ let teeErrorIfTests =
       Expect.equal !foo "foo" ""
   ]
 
+[<Tests>]
+let catchTests =
+  let f (e : exn) = e.Message
+  let taskThrow () = task {
+    failwith err
+    return Error ""
+  }
+
+  testList "TaskResult.catch test" [
+    testCase "catch returns success for Ok" <| fun _ ->
+      Expect.hasTaskOkValue 42 (TaskResult.catch f (toTask (Ok 42)))
+
+    testCase "catch returns mapped Error for exception" <| fun _ ->
+      Expect.hasTaskErrorValue err (TaskResult.catch f (taskThrow ()))
+
+    testCase "catch returns unmapped error without exception" <| fun _ ->
+      Expect.hasTaskErrorValue "unmapped" (TaskResult.catch f (toTask (Error "unmapped")))
+  ]
+
 type CreatePostResult =
 | PostSuccess of NotifyNewPostRequest
 | NotAllowedToPost

tests/FsToolkit.ErrorHandling.Tests/AsyncResult.fs

@@ -470,6 +470,24 @@ let teeErrorIfTests =
     }
   ]
 
+let catchTests =
+  let f (e : exn) = e.Message
+  let asyncThrow () = async {
+    failwith err
+    return Error ""
+  }
+
+  testList "AsyncResult.catch test" [
+    testCaseAsync "catch returns success for Ok" <|
+      Expect.hasAsyncOkValue 42 (AsyncResult.catch f (toAsync (Ok 42)))
+
+    testCaseAsync "catch returns mapped Error for exception" <|
+      Expect.hasAsyncErrorValue err (AsyncResult.catch f (asyncThrow ()))
+
+    testCaseAsync "catch returns unmapped error without exception" <|
+      Expect.hasAsyncErrorValue "unmapped" (AsyncResult.catch f (toAsync (Error "unmapped")))
+  ]
+
 type CreatePostResult =
 | PostSuccess of NotifyNewPostRequest
 | NotAllowedToPost
@@ -542,6 +560,7 @@ let allTests = testList "Async Result tests" [
   teeIfTests
   teeErrorTests
   teeErrorIfTests
+  catchTests
   asyncResultCETests
   asyncResultOperatorTests
 ]