Автоматизация приложения-примера
Итак, для автоматизации тестирования рассматриваемого примера, для которого уже существуют Спецификация на систему и список TestCases, выполним следующие действия:
1. Создание нового проекта
Из меню Start -> All Programs -> Rational Software -> Rational Administrator запускаем Rational Administrator. В меню программы выбираем File -> New Project.
В появившемся окне заполняем имя нового проекта, его местоположение, по кнопке Nextпереходим дальше и заполняем необходимые поля для создания нового проекта.
Среди существующих проектов мы видим созданный нами проект:
Запускаем Rational Robot
Запускаем Rational Robot, в появившемся окне выбираем местоположение проекта, его название, вводим имя и пароль, которые были указаны при создании проекта.
Создаем новый скрипт
Итак, мы в среде RationalRobot. Для создания нового скрипта необходимо выбрать соответствующий пункт меню:
Назовем первый скрипт UI, т.к. отвечать он будет за те пункты ТС, которые связанны с пользовательским интерфейсом.
Текст этого скрипта будет выглядеть следующим образом:
Sub Main
Dim Result As Integer
'Initially Recorded: 02.11.2006 19:50:38
'Script Name: UI
‘Открываем приложение
Window SetContext, "Type=Form;Title=Выполнение математических операций", ""
‘ТС_пункт 1
‘Пробуем закрыть окно нажатием на Esc
InputKeys "{ESCAPE}"
‘Запускаем приложение заного
Window SetContext, "Caption=Run", ""
InputKeys "C:\Documents and Settings\nataliad\My Documents\Пр"
InputKeys "иложение\Приложение.exe{ENTER}"
‘ТС_пункт 4
‘Вводим в текстовые поля нечисловые значения
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "ewrwer"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "sdfsadf"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.1.1
‘Вводим числа с модулем от 0 до 10 без использования отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton1"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.1.2
‘Вводим числа с модулем от 0 до 10 с использованием отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton1"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "-22"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.2.1
‘Вводим числа с модулем от 0 до 100 без использования отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton2"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "155"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "444"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.2.2
‘Вводим числа с модулем от 0 до 100 с использованием отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton2"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "-777"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "-111"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.3.1
‘Вводим числа с модулем от 0 до 1000 без использования отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton3"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "3456"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "4567"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 5.3.2
‘Вводим числа с модулем от 0 до 1000 с использованием отрицательных чисел
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton;Name=radioButton3"
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "-8888"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "-9999"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘ТС_пункт 6
‘Вводим в текстовые поля числа большой длины
EditBox Click, "Type=EditBox;Name=EditBox1", "Coords=29,3"
InputKeys "12345678"
EditBox Click, "Type=EditBox;Name=EditBox2", "Coords=18,5"
InputKeys "87654321"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
‘В случае успешной отработки – выдаем сообщение
SQALogMessage sqaPass, "Тест на проверку пользовательского интерфейса пройден успешно", ""
End Sub
Теперь если скрипт отработает правильно, автоматически будет открыто приложение Rational TestManager, в котором мы увидим информацию об успешном прохождении теста и запись «Тест на проверку пользовательского интерфейса пройден успешно»:
В случае же, если во время прохождения скрипта произойдет ошибка, TestManager так же сообщит нам об этом:
При выборе из контекстного меню для строчки, на которой произошла падение скрипта, пункта Property, мы можем увидеть, на какой строке кода произошло падение.
Второй скрипт, проверяющий реализацию алгоритма, будет назван function.
Sub Main
Dim Result As Integer
Dim val1 As String
Dim val2 As String
Dim res As String
'Initially Recorded: 02.11.2006 20:16:19
'Script Name: function
‘Открываем приложение
Window SetContext, "Type=Form;Title=Выполнение математических операций", ""
ComboBox Click, "Type=ComboBox;Index=0", "Coords=125,13"
ComboListBox Click, "ObjectIndex=0", "Text=Умножение"
‘ТС_пункт 1.1
‘Умножение двух положительных чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, " Умножение двух положительных чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘ТС_пункт 1.2
‘Умножение двух чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, "Умножение двух чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘ТС_пункт 1.3
‘Умножение двух положительных чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, " Умножение двух положительных чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘ТС_пункт 1.4
‘Умножение двух чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, " Умножение двух чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘ТС_пункт 1.5
‘Умножение двух положительных чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "289"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "833"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, "Умножение двух положительных чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘ТС_пункт 1.6
‘Умножение двух чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-555"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-733"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)*Val(val2)
Then SQALogMessage sqaNone, "Умножение двух чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция умножения работает неправильно!!!", ""
‘*******************************************************************
ComboBox Click, "Type=ComboBox;Index=0", "Coords=129,14"
ComboListBox Click, "ObjectIndex=0", "Text=Деление"
‘ТС_пункт 2.1
‘Деление двух положительных чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух положительных чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘ТС_пункт 2.2
‘Деление двух чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘ТС_пункт 2.3
‘Деление двух положительных чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух положительных чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘ТС_пункт 2.4
‘Деление двух чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘ТС_пункт 2.5
‘Деление двух положительных чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "289"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "833"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух положительных чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘ТС_пункт 2.6
‘Деление двух чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-555"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-733"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)/Val(val2)
Then SQALogMessage sqaNone, " Деление двух чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция деления работает неправильно!!!", ""
‘*******************************************************************
ComboBox Click, "Type=ComboBox;Index=0", "Coords=135,5"
ComboListBox Click, "ObjectIndex=0", "Text=Сложение"
‘ТС_пункт 3.1
‘Сложение двух положительных чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, " Сложение двух положительных чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘ТС_пункт 3.2
‘Сложение двух чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, " Сложение двух чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘ТС_пункт 3.3
‘Сложение двух положительных чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, " Сложение двух положительных чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘ТС_пункт 3.4
‘Сложение двух чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, " Сложение двух чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘ТС_пункт 3.5
‘Сложение двух положительных чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "289"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "833"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, " Сложение двух положительных чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘ТС_пункт 3.6
‘Сложение двух чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-555"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-733"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)+Val(val2)
Then SQALogMessage sqaNone, "Сложение двух чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция сложения работает неправильно!!!", ""
‘*******************************************************************
ComboBox Click, "Type=ComboBox;Index=0", "Coords=131,14"
ComboListBox Click, "ObjectIndex=0", "Text=Вычитание"
‘ТС_пункт 4.1
‘Вычитание двух положительных чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух положительных чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
‘ТС_пункт 4.2
‘Вычитание двух чисел от 0 до 10
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton1"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "5"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-3"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух чисел от 0 до 10 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
‘ТС_пункт 4.3
‘Вычитание двух положительных чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух положительных чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
‘ТС_пункт 4.4
‘Вычитание двух чисел от 0 до 100
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton2"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-55"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "33"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух чисел от 0 до 100 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
‘ТС_пункт 4.5
‘Вычитание двух положительных чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "289"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "833"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух положительных чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
‘ТС_пункт 4.6
‘Вычитание двух чисел от 0 до 1000
CheckBox Click, "Type=CheckBox;Index=0"
RadioButton Click, "Type=RadioButton; Name=radioButton3"
EditBox Click, "Type=EditBox; Name=EditBox1", "Coords=29,3"
InputKeys "-555"
EditBox Click, "Type=EditBox; Name=EditBox2", "Coords=18,5"
InputKeys "-733"
‘и после этого нажимаем на кнопку
PushButton Click, "Type=PushButton;Index=0"
SQAGetProperty("Type=EditBox;Name=EditBox1", "Text", val1)
SQAGetProperty("Type=EditBox;Name=EditBox2", "Text", val2)
SQAGetProperty("Type=Label;Name=result", "Text", res)
If Val(res)=Val(val1)-Val(val2)
Then SQALogMessage sqaNone, " Вычитание двух чисел от 0 до 1000 прошло успешно", ""
Else SQALogMessage sqaNone, "Функция вычитания работает неправильно!!!", ""
End Sub
Ну, и наконец третий скрипт с названием mainбудет объединяющим, запускать два предыдущих:
Sub Main
Dim Result As Integer
'Initially Recorded: 02.11.2006 21:04:23
'Script Name: main
Window SetContext, "Caption=Run", ""
InputKeys "C:\Documents and Settings\nataliad\My Documents\Пр"
InputKeys "иложение\Приложение.exe{ENTER}"
CallScript "UI"
CallScript "function"
End Sub
В случае, если все тесты пройдут успешно, TaskManagerвыдаст нам соответствующее сообщение. Если же какой-то из тестов «упадет» мы тоже это увидим. Тестfunctionвыдаст нам сообщения о том, корректно ли отработали функции, реализуемые программой.
Теперь для проведения автоматического тестирования мы запустим скрипт mainизRationalRobot.
И в RationalTaskManagerувидим интересующий нас результат.