致力于测试团队建设和自动化测试开发,欢迎有兴趣者一起研究讨论
QTP实例-测试报告代码
上一篇 /
下一篇 2008-09-17 15:10:20
/ 个人分类:QTP
M6e.W(O6Bx8BG0自动化测试实际是将测试人员手工进行的工作脚本化,这就需要在测试脚本运行完成后,展示一个明了的测试报告,供相关人员查看测试结果,判断系统的正确性,以下代码实现的是一个EXCEL格式的测试报告,以Function为单位记录脚本的执行情况,若完成则显示Complete,在Comment中显示验证点检查结果情况,以此来判断系统运行的正确行;若由于一些突发的异常情况导致脚本未执行完成,则显示Fail,在Comment中显示Err.Descrīption信息51Testing软件测试网$}.e7yp(HuH7Q P
51Testing软件测试网9B5GE6F:ibH当然,要达到以上效果,要求在业务脚本的检查点按照指定的格式书写,我的做法是设置一个全局变量记录所有检查点信息,然后传入给日志函数51Testing软件测试网C/jDr6r`$G V
51Testing软件测试网#|6]RtZ#H
Z&J7PFr以下是代码,希望对有需要的朋友有所帮助:)51Testing软件测试网2v0Lx0f#iu~
51Testing软件测试网^6OzCd:{!a#QFunction ExcelReport(ReportExcelFile,sStatus,sDetails)51Testing软件测试网
m(~@:Z:w[
'定义变量51Testing软件测试网tC pKG5K
Dim fso51Testing软件测试网,a_!ZP/g#O
Dim oExcel51Testing软件测试网B c E#E@4{
Dim ExcelFile51Testing软件测试网)D&vXa_ oXN7Kg
Dim TestcaseName51Testing软件测试网/N@fw%L ^^
vGT,r(UB
Dim objWorkBook
r:C/[3U)Ovrq.@!v0 Dim objSheet51Testing软件测试网
@5tmu.u#Ko,`u
' Dim Environment("Row"), Environment("TCRow"), NewTC