From 7014053fd488028fd23d42c5effbc07b92efe62c Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 11 Feb 2026 20:12:11 +0000
Subject: [PATCH 1/2] Initial plan


From d1f2abb5378267e2b8278223bb0e761585416c5e Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 11 Feb 2026 20:21:53 +0000
Subject: [PATCH 2/2] Fix flaky Task disposal in AsyncType.fs tests - change
 use to let

Co-authored-by: T-Gro <46543583+T-Gro@users.noreply.github.com>
---
 .../Microsoft.FSharp.Control/AsyncType.fs     | 20 +++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncType.fs b/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncType.fs
index ef75dff9e00..20895385eb1 100644
--- a/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncType.fs
+++ b/tests/FSharp.Core.UnitTests/FSharp.Core/Microsoft.FSharp.Control/AsyncType.fs
@@ -153,7 +153,7 @@ type AsyncType() =
     member _.CreateTask () =
         let s = "Hello tasks!"
         let a = async { return s }
-        use t : Task<string> = Async.StartAsTask a
+        let t : Task<string> = Async.StartAsTask a
         waitASec t
         Assert.True (t.IsCompleted)
         Assert.AreEqual(s, t.Result)
@@ -167,7 +167,7 @@ type AsyncType() =
             doSpinloop()
         }
 
-        use t : Task<unit> = Async.StartAsTask(a, cancellationToken = cts.Token)
+        let t : Task<unit> = Async.StartAsTask(a, cancellationToken = cts.Token)
         // Should not finish, we don't eagerly mark the task done just because it's been signaled to cancel.
         try
             let result = t.Wait(300)
@@ -235,7 +235,7 @@ type AsyncType() =
         let a = async {
             do raise (Exception ())
          }
-        use t = Async.StartAsTask a
+        let t = Async.StartAsTask a
         let mutable exceptionThrown = false
         try
             // waitASec t
@@ -250,7 +250,7 @@ type AsyncType() =
         let a = async {
                 while true do ()
             }
-        use t = Async.StartAsTask a
+        let t = Async.StartAsTask a
         Async.CancelDefaultToken ()
         let mutable exceptionThrown = false
         try
@@ -270,7 +270,7 @@ type AsyncType() =
             }
         let cts = new CancellationTokenSource()
         let token = cts.Token
-        use t = Async.StartAsTask(a, cancellationToken=token)
+        let t = Async.StartAsTask(a, cancellationToken=token)
 //        printfn "%A" t.Status
         ewh.WaitOne() |> Assert.True
         cts.Cancel()
@@ -287,7 +287,7 @@ type AsyncType() =
     member _.CreateImmediateAsTask () =
         let s = "Hello tasks!"
         let a = async { return s }
-        use t : Task<string> = Async.StartImmediateAsTask a
+        let t : Task<string> = Async.StartImmediateAsTask a
         waitASec t
         Assert.True (t.IsCompleted)
         Assert.AreEqual(s, t.Result)
@@ -296,7 +296,7 @@ type AsyncType() =
     member _.StartImmediateAsTask () =
         let s = "Hello tasks!"
         let a = async { return s }
-        use t = Async.StartImmediateAsTask a
+        let t = Async.StartImmediateAsTask a
         waitASec t
         Assert.True (t.IsCompleted)
         Assert.AreEqual(s, t.Result)
@@ -307,7 +307,7 @@ type AsyncType() =
         let a = async {
             do raise (Exception ())
          }
-        use t = Async.StartImmediateAsTask a
+        let t = Async.StartImmediateAsTask a
         let mutable exceptionThrown = false
         try
             t.Wait()
@@ -322,7 +322,7 @@ type AsyncType() =
                 while true do
                     do! Async.Sleep 100
             }
-        use t = Async.StartImmediateAsTask a
+        let t = Async.StartImmediateAsTask a
         Async.CancelDefaultToken ()
         let mutable exceptionThrown = false
         try
@@ -343,7 +343,7 @@ type AsyncType() =
             }
         let cts = new CancellationTokenSource()
         let token = cts.Token
-        use t =
+        let t =
             Async.StartImmediateAsTask(a, cancellationToken=token)
         ewh.WaitOne() |> Assert.True
         cts.Cancel()