delphi - Dunit 控制台模式 - 执行两次测试

Question

我有一个 dunit 测试项目，我正在尝试在控制台模式下运行它。当我执行项目时，它运行了两次（它只打开一个控制台窗口，我看到它执行了两次测试），而且它的执行时间也比我在 GUI 模式下运行它时要多得多。有谁知道如何只运行一次 dunit 控制台测试？

DPR源代码：

var  
  R: TTestResult;  

begin  
  Application.Initialize;  
  if IsConsole then begin  
    with TextTestRunner.RunRegisteredTests(rxbHaltOnFailures) do begin  
      R := TextTestRunner.RunRegisteredTests;  
      ExitCode := R.ErrorCount + R.FailureCount;  
      Free;  
    end  
  end  
  else begin  
    GUITestRunner.RunRegisteredTests;  
  end;  
end.

Answer 1

您正在调用TextTestRunner.RunRegisteredTests两次，这导致您的测试执行两次。

只调用一次，你会没事的。