Question

我很难修复使用MailboxProcessor的F＃项目的TFS测试运行。问题是我从TFS测试运行器收到的以下警告：

System.AppDomainUnloadedException：尝试访问已卸载的AppDomain。如果测试开始一个线程但没有停止它，就会发生这种情况。确保测试启动的所有线程在完成之前停止。

我猜这个问题是由MailboxProcessor引起的。下面的代码片段演示了这个问题（我是从fsi运行的）：

open System.Threading
open System

type TestDisposable () =
    let cts = new CancellationTokenSource ()
    let processMessage (inbox:MailboxProcessor<int>) =
        let rec loop n =
            async {
                let! msg = inbox.Receive ()
                return! loop (n+msg)
            }
        loop 0

    let agent = MailboxProcessor<int>.Start (processMessage, cts.Token)

    interface IDisposable with
        member this.Dispose () =
            (agent :> IDisposable).Dispose ()
            cts.Cancel ()
            cts.Dispose ()
            printfn "TestDisposable.Dispose called"

do
    let weakTarget = 
        use target = new TestDisposable ()
        new WeakReference (target)

    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.WaitForFullGCComplete() |> ignore
    GC.Collect()

    printfn "WeakTarget is alive: %b" weakTarget.IsAlive

我希望输出行说weakTarget 死。但它的活着。我认为这表明存在一些内存泄漏。问题是我做错了什么？第二个问题是GC问题是否与TFS测试运行器问题有关。

Answer 1

您发布的示例代码将保留对target的引用，可能是因为您有一个顶级绑定（use target = new TestDisposable()）。

如果您将代码更改为类似下面的代码，您会发现weakTarget已失效，因为对target的引用只是test()函数的本地代码。

do
    let test() =
        use target = new TestDisposable()
        new WeakReference(target)

    let weakTarget = test()    

    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.WaitForFullGCComplete() |> ignore
    GC.Collect()

    printfn "WeakTarget is alive: %b" weakTarget.IsA

我不知道这是否可以解决你原来的问题，因为这对你编写示例代码的方式来说是相当明确的。

MailboxProcessor.Dispose不会使对象GC收集

1 个答案: