QTP场景恢复 2Word格式.docx
《QTP场景恢复 2Word格式.docx》由会员分享，可在线阅读，更多相关《QTP场景恢复 2Word格式.docx（13页珍藏版）》请在冰点文库上搜索。
用于恢复场景控制。
FunctionRecoveryFunctions（Object,Method,Arguments,retVal）
有错误发生时，对Desktop进行截图并保存
SaveTestError"
"
SetobjWS=CreateObject（"
WScript.Shell"
）
strDesktopFolder="
T:
/TestData/测试组/测试截图/"
IfQCUtil.IsConnectedthen
IfTypeName（QCUtil.CurrentTestSet）<
>
"
Nothing"
Then
setCurrentTSTest=QCUtil.CurrentTestSet
strDesktopFolder=strDesktopFolder&
CurrentTSTest.Name
如果从QC的测试集运行的，则保存到测试集名字的目录下
Else
SingleTest"
如果不是从QC运行，保存到SingleTest目录下
EndIf
SetobjFSO=CreateObject（"
Scripting.FileSystemObject"
IfobjFSO.FolderExists（strDesktopFolder）Then
SetobjFolder=objFSO.GetFolder（strDesktopFolder）
SetobjFolder=objFSO.CreateFolder（strDesktopFolder）
确定保存文件的名称
tmpTime=Time（）
t=Split（tmpTime,"
:
IfLen（t（0））<
2Then
t（0）="
0"
&
t（0）
tmpTime=t（0）&
t
（1）&
t
（2）
tmpDate=CStr（Date（））
tmpYear=CStr（Year（tmpDate））
tmpMonth=CStr（Month（tmpDate））
tmpDay=CStr（Day（tmpDate））
如果月或日不足两位，前面补0
IfLen（tmpMonth）<
2Then
tmpMonth="
tmpMonth
IfLen（tmpDay）<
tmpDay="
tmpDay
tpmDate=tmpYear&
tmpMonth&
strTimeStamp=CStr（Year（Now））&
CStr（Month（Now））&
CStr（Day（Now））_
_"
CStr（Hour（Now））&
CStr（Minute（Now））&
CStr（Second（Now））
strTimeStamp=tpmDate&
tmpTime
strFile=strDesktopFolder&
/[测试案例]"
Environment（"
TestName"
）&
_[测试机器]"
LocalHostName"
_[测试时间]"
strTimeStamp&
_Error.png"
组合出截图文件的名称
对Desktop截图并保存
Desktop.CaptureBitmapstrFile
reporter.Filter=0
Reporter.ReportEventmicFail,"
案例失败"
"
本处提交失败报告是为了避免下面因为数据问题导致错误报告没有正常提交。
reporter.Filter=3
setWshShell=CreateObject（"
WshShell.SendKeys"
{ENTER}"
strStepInfo="
Test（"
）-Action（"
ActionName"
）发生非预期错误，测试退出"
strDetails="
错误编号：
CStr（Err.Number）&
错误描述：
Err.Description
OnErrorResumeNext
oClass=Object.GetTOProperty（"
micclass"
oName=Object.GetTOProperty（"
name"
Reporter.ReportEventmicFail,strStepInfo,oClass&
（"
Chr（34）&
oName&
）。
Method&
Arguments（0）&
出现错误，错误编号：
retVal
Arguments应该是1个或多个参数，此处只考虑了1个的情况，以后需要维护。
清除Error并退出Test
Iferr.number<
0Then
Err.Clear
Reporter.ReportEventmicFail,strStepInfo,Method&
OnErrorGoto0
systemutil.CloseProcessByName（"
iexplore.exe"
ExitTest
EndFunction
QTP场景恢复的实践和总结
自动化测试的优点在于快速、可靠、可重复、可重用、无疲劳，是对繁重的手工测试的一次解放，适用于回归测试。
自动化还有一个特点是无人值守，测试人员要做的是通过看
REPORT
ER来判断系统是否存在缺陷。
当然，脚本执行的过程中或多或少会出现ERROR，由于无人值守的特点，接下来的脚本就会不能运行，这也是为什么在自动化脚本中弹出框要用POP函数的原因。
QTP提供的场景恢复可以解决这个问题，我将自己学习实践的过程与大家分享，有不合适的地方请大家指正。
场景恢复可以看做一种嵌入式机制，是QTP脚本的一个可安装可拆卸零部件，这个零部件的作用就是在机器出现的问题的时候根据我们的指示执行指定的命令，记录案发现场，等脚本跑完的时候递出报告，供我们分析。
我们来看看怎么制造这个零件，我分享一个出错时调用函数截图的场景恢复。
我使用的版本是QTP10.00
一、设置
1、新建RecoveryScenario
首先我们打开Resouces--RecoveryScenarioManager窗口。
点击新建场景恢复图标
，开始新建一个RecoveryScenario。
2、选择触发方式
场景恢复机制提供了四种类型的触发事件，分别用来识别：
弹出对话框、对象的特殊属性值、运行错误、应用程序失败。
我这里选择Test
runerror触发方式。
Error选择Anyerror，这样出现任何错误都能触发恢复场景。
3、设置恢复时操作，这里我们选择调用函数。
点击下一步，选择编辑好的函数，我的恢复操作函数如下，函数的作用是将出错页面截屏打印到REPORTER。
FunctionRecoveryFunction1（Object,Method,Arguments,retVal）
Dimdatestamp,filename,ResPath
ResPath=Environment（"
ResultDir"
datestamp=Now（）
filename=Environment（"
）&
&
datestamp&
.png"
filename=Replace（filename,"
/"
filename=ResPath+"
\"
+"
filename
Desktop.CaptureBitmapfilename,True
Reporter.ReportEventmicFail,"
场景恢复"
报错截屏"
filename
EndFunction
点击下一步，将addanotherrecoveryoperations选项取消。
4、设置脚本恢复运行时的操作，这里处理下一个Action或者组件中的下一个迭代。
到这里，这个调用函数的场景恢复设置就基本完成了，下一步是给场景恢复取名并保存。
可以选择将新建的场景恢复添加到当前的TEST或者将其视为默认设置。
5、关联场景恢复文件
在file>
setting>
recovery选项中，可以选择添加或者删除场景设置，就跟resources中国添加关联函数是一个道理。
在testsetting里可以看到我们新建的场景设置已经与当前TEST关联。
二、运行
批量运行脚本实验场景恢复的作用。
在前面的脚本执行出错时不影响下一个脚本的执行，也即是场景恢复起到了作用，如果没有这个设置，我们批量运行脚本时就会中断在出错的位置，没有起到自动化应有的作用。
我们来看一下运行的报告。
SKIPITERATION，我们设置的恢复操作，执行下一个迭代。
这个是出错的截屏，这里我将密码设置错误触发了场景恢复。
谢谢大家，有不正确的请指正。
升级会员 