Режим консоли Dunit - выполнение тестов дважды

Question

У меня есть тестовый проект 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.

Answer 1

Вы звоните TextTestRunner.RunRegisteredTests дважды, что вызывает выполнение ваших тестов дважды.

Позвони только один раз, и все будет хорошо.