Тестируем калькулятор №1. НАСТРАИВАЕМ ИНФРАСТРУКТУРУ. Добавляем DUnit

Предыдущая серия была тут - http://programmingmindstream.blogspot.ru/2014/02/0.html

Теперь попробуем НАСТРОИТЬ ИНФРАСТРУКТУРУ и интегрировать тесты в данное приложение.

Все исходники будут доступны тут - https://sourceforge.net/p/rumtmarc/code-0/HEAD/tree/trunk/Blogger/DraftsAndScketches/SomeTestProjects/DummyCalculator/Chapter1/

 Первое, что делаем - это добавляем в проект вот какие строки:

program DummyCalculator;

uses
  Vcl.Forms,
  MainForm in 'MainForm.pas' {fmMain}
  ,
  GUITestRunner // - добавили ссылку на фреймвок тестирования
  ;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfmMain, fmMain);
  GUITestRunner.RunRegisteredTestsModeless; // - добавляем форму с тестами
  Application.Run;
end.

Теперь добавляем ПЕРВЫЙ ТЕСТ (пока пустой):

unit FirstTest;

interface

uses
  TestFrameWork
  ;

type
  TFirstTest = class(TTestCase)
   published
    procedure DoIt;
  end;//TFirstTest

implementation

procedure TFirstTest.DoIt;
begin
 Check(true);
end;

initialization
 TestFramework.RegisterTest(TFirstTest.Suite);

end.

Вот что получаем:

Думаю для начала хватит.

В следующем посте я расскажу о тестировании приложения через доступные GUI-контролы.