使用DUnitX框架测试Delphi VCL窗体时的线程阻塞问题

问题根源 #

DUnitX默认以控制台程序模式运行（通过{$APPTYPE CONSOLE}指定），而VCL的TThread.OnTerminate事件依赖主线程的消息循环完成同步执行：当线程结束时，OnTerminate的逻辑会通过Synchronize机制发送到主线程的消息队列，等待主线程处理。但控制台程序的主线程没有运行消息循环，导致同步操作卡在TMonitor.Wait(SyncProcPtr.Signal, ThreadLock, INFINITE)，线程无法正常收尾，OnTerminate事件自然不会触发。

可行解决方案 #

方案1：在测试中添加临时消息循环 #

启动线程后，手动运行消息循环直到线程结束，确保OnTerminate的同步消息被处理：

步骤1：修改窗体类，暴露线程对象

在Unit1的TForm1类中，将MyThread移至public段，方便测试单元访问：

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    procedure MyThreadTerminate(Sender: TObject);
  public
    MyThread: TMyThread; // 移至public
  end;

步骤2：修改测试方法，添加消息循环

在TestUnit的Test1方法中，加入消息循环等待线程结束：

procedure TMyTestObject.Test1;
begin
  Unit1.Form1.Button1Click(nil);
  
  // 循环处理消息，直到线程释放
  while Assigned(Unit1.Form1.MyThread) do
  begin
    Application.ProcessMessages;
    Sleep(50); // 降低CPU占用
  end;
  
  // 验证结果
  Assert.AreEqual('Thread finished!', Unit1.Form1.Label1.Caption);
end;

方案2：直接等待线程并手动执行事件逻辑 #

跳过消息循环依赖，直接等待线程完成后手动调用OnTerminate的逻辑：

修改测试方法：

procedure TMyTestObject.Test1;
begin
  Unit1.Form1.Button1Click(nil);
  
  // 等待线程执行完成
  Unit1.Form1.MyThread.WaitFor;
  // 手动触发终止逻辑
  Unit1.Form1.MyThreadTerminate(nil);
  // 手动释放线程（因为FreeOnTerminate默认是False）
  Unit1.Form1.MyThread.Free;
  Unit1.Form1.MyThread := nil;
  
  Assert.AreEqual('Thread finished!', Unit1.Form1.Label1.Caption);
end;

方案3：将DUnitX改为GUI应用模式（不推荐） #

去掉测试项目DPR中的{$APPTYPE CONSOLE}声明，让程序以GUI模式运行，自动拥有消息循环。但此方法会导致DUnitX的控制台日志输出异常，仅适合临时调试。

注意事项 #

• 若使用FreeOnTerminate := True，线程结束后会尝试自动释放，但在无消息循环的控制台环境中，释放逻辑仍会阻塞，因此建议手动管理线程生命周期（设置FreeOnTerminate := False）。
• 测试中使用Application.ProcessMessages时，需注意避免引入其他意外的消息处理逻辑，尽量缩小循环范围。

内容的提问来源于stack exchange，提问作者Ivan