Dispose correctly the cancellation token

fabulous-dev · Jan 29, 2024 · 484d729 · 484d729
1 parent 9edb16b
commit 484d729
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Fabulous.Tests/CmdTests.fs b/src/Fabulous.Tests/CmdTests.fs
@@ -31,4 +31,13 @@ type ``Cmd tests``() =
             do! Async.Sleep 125
 
             Assert.AreEqual(Some(NewValue 3), actualValue)
+
+            actualValue <- None
+
+            triggerCmd 4 |> CmdTestsHelper.execute dispatch
+            do! Async.Sleep 75
+            triggerCmd 5 |> CmdTestsHelper.execute dispatch
+            do! Async.Sleep 125
+
+            Assert.AreEqual(Some(NewValue 5), actualValue)
         }
diff --git a/src/Fabulous/Cmd.fs b/src/Fabulous/Cmd.fs
@@ -122,6 +122,9 @@ module Cmd =
                       async {
                           do! Async.Sleep(timeout)
                           dispatch(fn value)
+
+                          cts.Dispose()
+                          cts <- null
                       },
                       cts.Token
                   ) ]