空间管理您的位置: 51Testing软件测试网 » tianshilan的个人空间 » 日志

QTP场景恢复函数调用

上一篇 / 下一篇 2014-07-09 14:03:41 / 个人分类：qtp

当'列表或菜单中找不到选项'时如何创建场景恢复方案。　　此例中，我们会定义一个函数来处理错误。场景恢复函数的默认语法如下：

Function fnRecovery(Object, Method, Arguments, retVal)
'Error Handling Code
End Function

　　下面给出fnRecovery 中每个参数的解释：

Object as Object: The object of the current step. '当前步骤的对象
Method as String: The method of the current step. '当前步骤的方法
Arguments as Array: The actual method's arguments. '方法的实参
Result as Integer: The actual method's result. '方法的实际结果

　　我们使用以下函数处理报错场景：

Function Recovery_ListItemIsNotFound(Object, Method, Arguments, retVal)
Dim sAllItems, arrAllItems, intItem
 
With Object
'Retrieve all items from the Listbox
sAllItems = .GetROProperty('all items')
'Split 'all items' using a delimiter ';' into an array
arrAllItems = Split(sAllItems, ';')
 
'Select a random number
intItem = RandomNumber.Value(LBound(arrAllItems), UBound(arrAllItems))
.Select '#' & intItem
 
Reporter.ReportEvent micInfo, 'ListItemIsNotFound', 'Item: ' & .GetROProperty('value')
End With
End Function

　　Recovery_ListItemIsNotFound，顾名思议，如果WebList对象中不存在列表项，执行恢复操作。这中从错误在Web应用程序中是很常见的，WebList中的项往往随输入而更改。

　　场景恢复创建入口：单击菜单栏资源(Resources)->恢复方案管理器(Recovery Scenario Manager)。 RecoveryScenarioMenu

点击后，可以看到以下窗口：

Recovery Scenario Wizard

在窗口中,点击下面的按钮，可以调用场景恢复向导:

场景恢复向导 - 欢迎界面

当上面的界面打开后:

点击 Next 选择 Test Run Error 做为触发事件

点击 Next 选择‘Test Run Error: Item in list or menu not found in the Error Listbox

点击 Next -> Next ,导航到恢复操作(Recovery Operation)界面

选择 Function Call ，点击 Next

选择恢复操作函数的存储库.

选择 'Define New Function',在编辑区粘贴Recovery_ListItemIsNotFound 函数;若所选库中已存在函数，可选择'Select function'，并在下拉框中选择函数

定义新函数

点击 Next,回到'Recovery Operations'页面确保'Add Another Recovery Scenario'多选框未被选中，点击 Next.

Under Post-Recovery Test Run Options, select proceed to next step.更多选项详解参考http://www.cnblogs.com/sylvia-liu/p/3706287.html

给场景命名，Click Next

最后, 检查选项: Add Scenario to current test，点击 Finish.保存并关闭。【补充：将该场景恢复方案应用于其他测试，File->setting->Recovery,选择场景方案】

　　我们将在下面的 WebList中选择一个不存在的值;以下为源代码。查看列表下拉项，你会发现'Rational Robot'实际不存在，当我们选择它时，恢复方案将处理该错误-即从列表中选择一个随机值

Browser('title:=.*Recovery Scenario.*').Page('micclass:=Page')_
    .WebList('name:=testTools').Select 'Rational Robot'
 
MsgBox 'Item Selected: ' & Browser('title:=.*Recovery Scenario.*').Page('micclass:=Page')_
	.WebList('name:=testTools').GetROProperty('value')

当执行上面这段代码时,你会发现不再抛出测试错误而是选中列表中的一个随机值.场景恢复方案被触发并成功执行后将出现下面的结果: