Dunit控制檯模式 - 執行測試兩次

我有一個dunit測試項目，我試圖在控制檯模式下運行它。當我執行這個項目時，它會運行兩次（它只打開一個控制檯窗口，並且我看到它執行兩次測試），並且與GUI模式下運行時相比，執行時間還要多得多。有誰知道如何只運行一次dunit控制檯測試？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.

來源

2011-02-09 Rafael Colucci

發佈您的DPR代碼。我懷疑你在代碼中有問題。 – 2011-02-09 19:35:18

@robert它完成了。 – 2011-02-09 19:48:13

要調用TextTestRunner.RunRegisteredTests這是造成你的測試執行兩次兩次。

只呼叫一次，你會沒事的。

來源

2011-02-09 19:49:05

Dunit控制檯模式 - 執行測試兩次

回答

相關問題