Тест-скрипт для Rational Robot
'Обозначить данные:
Dim tresult As String
Dim Result As Integer
'Активизировать окно:
Window SetContext, "Caption=PizzaOrder"
'Проверить наличие объекта Name класса EditBox.
' Если объекта нет, то подождать 10 с:
Result = SQAWaitForObject("Type=EditBox;name=name",10000)
If Result = sqaSuccess Then
'Щелкнуть мышью на объекте Name класса EditBox:
EditBox Click, "Name=name", "Coords=91,12"
' Ввести имя Ilya:
InputChars " Ilya "
tresult = "Тест пройден успешно" Else
'Если объект не появился, вывести сообщение об ошибке и перейти к шагу 5, в противном случае перейти к шагу 3:
SQALogMessage sqaFail. " Объект не найден", ""
tresult = "Объект не найден" End If
'Вывести сообщение о результатах тестирования и сохранить их в файл: SQALogMessage sqaNone, tresult, ""
Open "C:\result.txt " For Append As #1
Print #1, tresult
Close #1
Литература
1. Гленфорд Майерс, Том Баджетт, Кори Сандлер Искусство тестирования программ, 3-е издание = The Art of Software Testing, 3rd Edition. — М.: «Диалектика», 2012. — 272 с.
2. Джефф Рэшка, Элфрид Дастин, Джон Пол Тестирование программного обеспечения . — М.: Лори, 2012 г.- 568 с
3. Лайза Криспин, Джанет Грегори Гибкое тестирование: практическое руководство для тестировщиков ПО и гибких команд . Agile Testing: A Practical Guide for Testers and Agile Teams. — М.: «Вильямс», 2010. — 464 с.
Практическое занятие 12-13. Средства автоматизации тестирования программного обеспечения
|
|
План занятия:
1. Повторение изученных теоретических разделов
2. Решение типовых задач у доски
3. Самостоятельное решение задач
4. Обсуждение решения и анализ основных ошибок
5. Доклады студентов по теме практического занятия
Теоретические сведения
Задача тестирования: проверить, что объект Name класса EditBox существует, ввести в него значение Ilya , вывести сообщение о результатах теста и записать их в файл.
Тест-скрипт:
1. Активизировать окно.
2. Проверить наличие объекта Name класса EditBox.
Если объекта нет, то подождать 10 секунд.
Если объект не появился, вывести сообщение об ошибке и перейти к шагу 5,
в противном случае перейти к шагу 3.
3. Щелкнуть мышью на объекте Name класса EditBox.
4. Ввести Имя Ilya.
5. Вывести сообщение о результатах тестирования и сохранить их в файл.
Задачи для самостоятельного решения студентами
Задача 1.
Какие особенности языка скриптов были использованы в изучаемых фрагментах теста, см. фрагмент 1.
Задача 2.
Какие типы переменных использованы в изучаемых фрагментах теста, где и как они описаны, см. фрагмент 1.
Задача 3.
Какие файлы использованы в изучаемых фрагментах теста, где и как они описаны см. фрагмент 1.
|
|
Фрагмент 1.
Тест-скрипт для WinRunner
#Активизировать окно:
set_window ("Pizza Ordering Page"):
#Проверить наличие объекта Name класса EditBox.
#Если объекта нет, то подождать 10 с:
if (obj_exists("name",10) != E_0K)
{
#Если объект не появился, вывести сообщение об ошибке и перейти к шагу 5,
в противном случае перейти к шагу 3:
tl_step("Проверка объекта",-!."Объект Name класса EditBox не
найден");
tresult = "Объект не найден";
}
else
#Щелкнуть мышью на объекте Name класса EditBox:
objmouse_click ("name", 217, 34, LEFT);
#Ввести имя Ilya:
objjtype ("name","Ilya"); tresult = "Тест пройден успешно";
}
# Вывести сообщение о результатах тестирования и сохранить их в файл: report_msg(tresult);
file_open ("С:Wresults.txt", F0_MODE__APPEND);
file_printf ("C:\\ results.txt ","*s ", tresult);
file_close ("C:\\results.txt");
Задача 4.
Какие элементы языка скриптов были использованы в изучаемых фрагментах теста, см. фрагмент 2.
Задача 5.
Какие типы переменных использованы в изучаемых фрагментах теста, см. фрагмент 2.
|
|
Задача 6.
Какие условия использованы в изучаемых фрагментах теста, см. фрагмент 2.
Фрагмент 2.
Тест-скрипт для SilkTest
// Обозначить данные:
HFILE OutputFileHandle
STRING tresult
// Активизировать окно:
PizzaOrder.SetActiveO
// Проверить наличие объекта Name класса EditBox.
// Если объекта нет, то подождать 10 с:
if (Name.Exists()=FALSE)
// Если объект не появился, вывести сообщение об ошибке и перейти к шагу 5,
в противном случае перейти к шагу 3:
LogError ("Объект Name класса EditBox не найден ")
tresult = "Объект не найден"
else
// Щелкнуть мышью на объекте Name класса EditBox:
Name.Click О;
// Ввести имя Ilya:
Name.TypeKeys ("Ilya ")
tresult = "Тест пройден успешно" // Вывести сообщение о результатах тестирования и сохранить их в файл: print(tresult)
OutputFileHandle = FileOpen ("C:\results.txt ", FM_APPEND) FileWriteLine (OutputFileHandle, tresult) FileClose (OutputFileHandle)
Задача 7.
Какие элементы языка скриптов были использованы в изучаемых фрагментах теста, см. фрагмент 3.
Задача 8.
Какие типы переменных использованы в изучаемых фрагментах теста, см. фрагмент 3.
Задача 9.
Какие условия использованы в изучаемых фрагментах теста, см. фрагмент 3.
Фрагмент 3
Дата добавления: 2019-07-17; просмотров: 142; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!