+ Additional tests for tryFinally

Author: gusty

tests/FSharpPlus.Tests/Task.fs

@@ -242,6 +242,28 @@ module Task =
             CollectionAssert.AreNotEquivalent (t123.Exception.InnerExceptions, t123''.Exception.InnerExceptions, "Task.map3 (fun x y z -> [x; y; z]) t1 t2 t3 is not the same as sequence [t1; t2; t3]")
 
 
+    // This module contains tests for ComputationExpression not covered by the below TaskBuilderTests module
+    module ComputationExpressionTests =
+        open System
+        open System.Threading.Tasks
+        open NUnit.Framework
+        open FSharpPlus
+        open FSharpPlus.Tests.Helpers
+
+        [<Test>]
+        let testTryFinally () =
+            let mutable ran = false
+            let t = monad' {
+                try
+                    do! Task.FromException<unit> (exn "This is a failed task")
+                finally
+                    ran <- true
+                return 1
+            }
+            t.Wait()
+            require ran "never ran"
+            require (not (isNull t.Exception)) "didn't capture exception"
+    
     module TaskBuilderTests =
 
         // Tests for TaskBuilder.fs

tests/FSharpPlus.Tests/ValueTask.fs

@@ -205,6 +205,28 @@ module ValueTask =
             CollectionAssert.AreNotEquivalent (t123.Exception.InnerExceptions, t123''.Exception.InnerExceptions, "ValueTask.map3 (fun x y z -> [x; y; z]) t1 t2 t3 is not the same as sequence [t1; t2; t3]")
 
 
+    // This module contains tests for ComputationExpression not covered by the below TaskBuilderTests module
+    module ComputationExpressionTests =
+        open System
+        open System.Threading.Tasks
+        open NUnit.Framework
+        open FSharpPlus
+        open FSharpPlus.Tests.Helpers
+
+        [<Test>]
+        let testTryFinally () =
+            let mutable ran = false
+            let t = monad' {
+                try
+                    do! ValueTask.FromException<unit> (exn "This is a failed task")
+                finally
+                    ran <- true
+                return 1
+            }
+            t.Wait()
+            require ran "never ran"
+            require (not (isNull t.Exception)) "didn't capture exception"
+    
     module ValueTaskBuilderTests =
 
         // Same tests, same note as in Task.fs about these tests