QTP 场景恢复– 函数调用

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

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中的项往往随输入而更改。

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

场景恢复向导 - 欢迎界面

 当上面的界面打开后: 

1. 点击 Next
2. 选择 Test Run Error 做为触发事件
   
   
3. 点击 Next
4. 选择‘Test Run Error: Item in list or menu not found in the Error Listbox
   
   
5. 点击 Next -> Next ,导航到 恢复操作(Recovery Operation)界面
   
   
6. 选择 Function Call ，点击 Next
   
   
7. 选择恢复操作函数的存储库.
   
8. 选择 ‘Define New Function‘,在编辑区粘贴Recovery_ListItemIsNotFound 函数;若所选库中已存在函数，可选择‘Select function‘，并在下拉框中选择函数
   
   
   

   定义新函数

9. 点击 Next,回到‘Recovery Operations‘页面
10. 确保‘Add Another Recovery Scenario‘多选框未被选中，点击 Next.
    
    
11. Under Post-Recovery Test Run Options, select proceed to next step.更多选项详解参考http://www.cnblogs.com/sylvia-liu/p/3706287.html
    
    
12. 给场景命名，Click Next
    
    
13. 最后, 检查选项: Add Scenario to current test，点击 Finish.保存并关闭。【补充：将该场景恢复方案应用于其他测试，File->setting->Recovery,选择场景方案】

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

QuickTest ProLoadRunnerFunctional TesterSelenium

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")

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

场景恢复执行记录

此外，还有很多其他场景,我会不断整理补充一些重要场景. 

翻译自http://relevantcodes.com/recovery-scenario-test-run-error-item-in-list-or-menu-not-found/ ，若有错误部分，大家积极留言共同纠正