Коротко. О GUI-тестировании "по-русски"

Про реальную разработку написано тут:
http://18delphi.blogspot.ru/2013/10/blog-post_7652.html
http://18delphi.blogspot.ru/2013/10/blog-post_7099.html

Теперь попробую описать собственно идею.

Пусть у нас есть форма:

TSomeForm = class(TForm)
 SomeButton : TButton;
end;//TSomeForm

Пусть мы хотим иметь возможность нажимать на кнопку SomeButton на форме SomeForm.
Из наших тестов.

Этому нам помогут следующие слова тестовой машины:

interface

TkwFindForm = class(TscriptKeyWord)
protected
 procedure DoIt(aContext : TscriptContext); override;
end;//TkwFindForm

TkwFindComponent = class(TscriptKeyWord)
protected
 procedure DoIt(aContext : TscriptContext); override;
end;//TkwFindComponent

TkwButtonClick = class(TscriptKeyWord)
protected
 procedure DoIt(aContext : TscriptContext); override;
end;//TkwButtonClick

И реализация:

implementation

procedure TkwFindForm.DoIt(aContext : TscriptContext);
var
 l_Name : String;
 l_Form : TForm;
begin
 l_Name := aContext.PopString;
 Assert(l_Name <> '');
 l_Form := Screen.FindFormByName(l_Name); // - такого метода нет, но его легко можно написать
 Assert(l_Form <> nil);
 aContext.PushObject(l_Form);
end;

procedure TkwFindComponent.DoIt(aContext : TscriptContext);
var
 l_Name : String;
 l_Form : TForm;
 l_Component : TComponent;
begin
 l_Name := aContext.PopString;
 l_Form := aContext.PopObject As TForm;
 Assert(l_Name <> '');
 Assert(l_Form <> nil);
 l_Component := l_Form.FindComponent(l_Name);
 Assert(l_Component <> nil);
 aContext.PushObject(l_Component);
end;

procedure TkwButtonClick.DoIt(aContext : TscriptContext);
var
 l_Component : TComponent;
begin
 l_Component := aContext.PopObject As TComponent;
 Assert(l_Component Is TButton);
 (l_Component As TButton).Click;
end;

Регистрируем описанные слова в тестовой машине:

initialization
 ScriptEngine.RegisterWord(TkwFindForm, 'FindForm');
 ScriptEngine.RegisterWord(TkwFindComponent, 'FindComponent');
 ScriptEngine.RegisterWord(TkwButtonClick, 'ButtonCick');

Понятное, дело, что идентификаторы слов можно "придумывать" из ClassName, но это - не так важно.

Теперь мы можем написать первый тест:

VAR l_Form
VAR l_Button
'SomeForm' FindForm =: l_Form
l_Form 'SomeButton' FindComponent =: l_Button
l_Button ButtonClick

И он делает то, что хотелось.

(Обратная польская запись пусть вас не пугает. Пишу так - потому, что у меня так сделано. Исторически. Обратная польская запись или инфиксная - не суть важно.)

Но. Хотелось бы "по-русски".

Напишем "вспомогательные" слова. Уже на скриптовом языке тестовой машины.

Пусть мы знаем, что SomeForm, это форма для регистрации пользователя, а SomeButton это кнопка для сохранения.
Ну из бизнес-логики такое следует.

Напишем:

CONST "Форма регистрации" 'SomeForm'
CONST "Сохранить" 'SomeButton'

Тогда тест можно переписать так:

VAR l_Form
VAR l_Button
"Форма регистрации" FindForm =: l_Form
l_Form "Сохранить" FindComponent =: l_Button
l_Button ButtonClick

Ну отчасти "по-русски". Но - не совсем.

Пойдём дальше.

Напишем:

STRING FUNCTION "Найти форму" STRING IN aFormName
 aFormName FindForm =: Result
END //"Найти форму"

STRING FUNCTION "Найти найти компонент на форме" STRING IN aComponentName OBJECT IN aForm
 aForm aComponentName FindComponent =: Result
END //"Найти найти компонент на форме""

PROCEDURE "Нажать кнопку" OBJECT IN aButton
 aButton ButtonClick
END //"Нажать кнопку"

WORDALIAS VAR Переменная

Тогда тест можно переписать так:

Переменная "Найденная форма"
Переменная "Найденная кнопка"
"Найти форму {("Форма регистрации")}" =: "Найденная форма"
"Найти найти компонент {("Сохранить")} на форме {("Найденная форма")}" =: "Найденная кнопка"
"Нажать кнопку {("Найденная кнопка")}"

Ну и последний штрих.
Вносим написанное слово в словарь:

PROCEDURE "Нажать кнопку Сохранить на форме регистрации"
 Переменная "Найденная форма"
 Переменная "Найденная кнопка"
 "Найти форму {("Форма регистрации")}" =: "Найденная форма"
 "Найти найти компонент {("Сохранить")} на форме {("Найденная форма")}" =: "Найденная кнопка"
 "Нажать кнопку {("Найденная кнопка")}"
END //"Нажать кнопку Сохранить на форме регистрации"

Теперь тест приобретает вид:

 "Нажать кнопку Сохранить на форме регистрации"

- все служебные конструкции - "упрятаны" внутрь "слова высокого уровня" - "Нажать кнопку Сохранить на форме регистрации". 

И это уже не совсем "слово", а по сути - целое "предложение.

Которое попало в словарь скриптовой машины и которое скриптовая машина опознаёт как валидный идентификатор. И который начинает участвовать в процессе компиляции скриптов.

Зачем это нужно?

Ну конечно не для того, чтобы "писать по-русски". Это конечно - утопия.

Идея в том, что подобные тесты можно "читать по-русски".

Тест приобретает вид TestCase'а.

И его может выполнять не только скриптовая машина, но и человек.

Ну и - "самодокументируемость кода".

Таким образом выводя "нужные ручки" со стороны Delphi (не обязательно через RTTI) и описывая "высокоуровневые" слова в промежуточных словарях тестовой машины - можно быстро "набрать массу", необходимую для написания тестов в виде TestCase'ов.

Немножко о том "как всё это устроено внутри" читайте тут - http://18delphi.blogspot.ru/2013/11/gui_5.html