Скрипты тестов
Здесь приведены скрипты тестов, сделанных с помощью Rational Robot.
Тест 1.1
Sub Main
Dim
Result As Integer
'Script
Name: test_1_1
'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=4;\;ItemID=1012", "Coords=35,38"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1013", "Coords=46,47"
End Sub
Тест 1.3
Sub Main
Dim
Result As Integer
'Script
Name: test_1_3
'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", ""
ComboEditBox
Click, "ObjectIndex=3", "Coords=23,10"
InputKeys
"nonexisting.pdf"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1012", "Coords=34,41"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1013", "Coords=38,34"
End Sub
Тест 1.5
Sub Main
Dim
Result As Integer
'Script
Name: test_1_5
'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", ""
ComboEditBox Click, "ObjectIndex=3", "Coords=13,10"
InputKeys "Empty.pdf"
Toolbar Click, "ObjectIndex=4;\;ItemID=1012", "Coords=34,42"
Window SetContext, "Caption=Сохранить как", ""
PushButton Click, "Text=Сохранить"
Window SetContext, "Caption=Solid Converter PDF", ""
PushButton Click, "Text=Да"
Window SetContext, "Caption=Solid Converter PDF предупреждение", ""
PushButton Click, "Text=Закрыть"
Window SetContext, "Caption=Результаты преобразования", ""
PushButton Click, "Text=Закрыть"
End Sub