Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабораторная работа 41 / Автоматическое тестирование.doc
Скачиваний:
36
Добавлен:
01.05.2014
Размер:
283.14 Кб
Скачать

Тест 3.1.10

Sub Main

Dim Result As Integer

'Script Name: test_3_1_10

'Start Solid converter

Window SetContext, "Caption=Program Manager", ""

ListView DblClick, "Text=FolderView;\;ItemText=Solid Converter PDF", "Coords=36,24"

DelayFor 5000

'Set work folder

Window SetContext, "Caption=Solid Converter PDF", ""

ComboBox Click, "Label=Папка:", "Coords=254,13"

ComboListBox Click, "Label=Папка:", "Text=ACERDATA (D:)"

ListView DblClick, "Text=FolderView;\;ItemText=RobotPRJ", "Coords=34,9"

ListView DblClick, "Text=FolderView;\;ItemText=work", "Coords=29,12"

'Set default params

Toolbar Click, "ObjectIndex=3;\;ItemID=1010", "Coords=36,29"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Восстановить параметры по умолчанию"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Да"

'Set preferred params

Window SetContext, "Caption=Solid Converter PDF", ""

CheckBox Click, "Text=Использовать мастер"

CheckBox Click, "Text=Запуск программы просмотра"

PushButton Click, "Text=ОК"

'Specific action

Window SetContext, "Caption=Solid Converter PDF", ""

Toolbar Click, "ObjectIndex=3;\;ItemID=1010", "Coords=22,31"

Window SetContext, "Caption=Solid Converter PDF", ""

CheckBox Click, "Text=Выбор страниц"

PushButton Click, "Text=ОК"

Window SetContext, "Caption=Solid Converter PDF", ""

ListView Click, "Text=FolderView;\;ItemText=Little.pdf", "Coords=34,9"

Toolbar Click, "ObjectIndex=4;\;ItemID=1012", "Coords=32,42"

Window SetContext, "Caption=Сохранить как", ""

PushButton Click, "Text=Сохранить"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Да"

Window SetContext, "Caption=Страницы преобразования", ""

RadioButton Click, "Text=Страницы от:"

PushButton Click, "Text=ОК"

Window SetContext, "Caption=Результаты преобразования", ""

PushButton Click, "Text=Закрыть"

End Sub

Тест 3.1.11

Sub Main

Dim Result As Integer

'Script Name: test_3_1_11

'Start Solid converter

Window SetContext, "Caption=Program Manager", ""

ListView DblClick, "Text=FolderView;\;ItemText=Solid Converter PDF", "Coords=36,24"

DelayFor 5000

'Set work folder

Window SetContext, "Caption=Solid Converter PDF", ""

ComboBox Click, "Label=Папка:", "Coords=254,13"

ComboListBox Click, "Label=Папка:", "Text=ACERDATA (D:)"

ListView DblClick, "Text=FolderView;\;ItemText=RobotPRJ", "Coords=34,9"

ListView DblClick, "Text=FolderView;\;ItemText=work", "Coords=29,12"

'Set default params

Toolbar Click, "ObjectIndex=3;\;ItemID=1010", "Coords=36,29"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Восстановить параметры по умолчанию"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Да"

'Set preferred params

Window SetContext, "Caption=Solid Converter PDF", ""

CheckBox Click, "Text=Использовать мастер"

CheckBox Click, "Text=Запуск программы просмотра"

PushButton Click, "Text=ОК"

'Specific action

Window SetContext, "Caption=Solid Converter PDF", ""

ListView Click, "Text=FolderView;\;ItemText=Little.pdf", "Coords=29,3"

Toolbar Click, "ObjectIndex=4;\;ItemID=1012", "Coords=51,41"

Window SetContext, "Caption=Сохранить как", ""

PushButton Click, "Text=Сохранить"

Window SetContext, "Caption=Solid Converter PDF", ""

PushButton Click, "Text=Да"

Window SetContext, "Caption=Результаты преобразования", ""

PushButton Click, "Text=Закрыть"

End Sub