51Testing软件测试论坛

标题: QTP测试报告如何保存~~~ [打印本页]

作者: minlnuorc 时间: 2007-5-14 10:13
标题: QTP测试报告如何保存~~~
有哪位知道QTP回放后生成的测试报告如何进行保存，最好是原格式的！！！
为什么我保存后打开的是XML格式的文件呢，全是代码呀~~
怎样能保存原格式的呢，我要给主管看的~~~
谢谢了~~~

作者: walker1020 时间: 2007-5-14 11:01
把生成的报告复制到 Word里面不就可以了吗？

作者: yuandjing 时间: 2007-5-14 14:17
好的测试报告最好自已用程序写出来，因为QTP自带的测试报告并没有突出重点
我这里有一分自己的教本，你可以参考一下
'Option explicit
Dim result,list,temp,row1,row2,i
Dim ActualResult
list=DataTable("list", dtGlobalSheet)
'写文件
Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
fileSpec ="C:\" &"测试报告"& ".txt"
Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
'Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
logFile.WriteLine ("#######################################################################")
logFile.WriteLine ("测试用例"+list+"：")

Window("Softdog管理客户端").Activate
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 850,380
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type DataTable("Account", dtGlobalSheet)
row1=DataTable("Account", dtGlobalSheet)
row1=cstr(row1)
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type  micReturn
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 935,381
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type DataTable("Discount", dtGlobalSheet)
row2=DataTable("Discount", dtGlobalSheet)
row2=cstr(row2)
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type  micReturn
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 1108,382
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type micCtrlDwn + "c" + micCtrlUp
Window("Form1").Activate
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Click 95,10
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Type micCtrlDwn + "v" + micCtrlUp
'获取应收金额数值 RunTime
result =trim(Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").GetROProperty("text"))
'Test
ActualResult=trim(Round(DataTable("Account", dtGlobalSheet), 2) * Round(DataTable("Discount", dtGlobalSheet), 2) * 0.01)
ActualResult=Round(ActualResult,2)

'打印测试报告
If cstr(result)=cstr(ActualResult) Then
logFile.WriteLine ("测试通过")
logFile.WriteLine (" ")
else
logFile.WriteLine ("测试不通过")
logFile.WriteLine ("更换金额："+row1+space(6)+"折扣："+row2)
logFile.WriteLine ("实际值："+cstr(result))
logFile.WriteLine ("期望值："+cstr(ActualResult))
logFile.WriteLine (" ")
End If

'清楚文本框内容
Window("Form1").Activate
While Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").GetROProperty("text")<>""
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Type  micBack
Wend

'关闭文件
logFile.Close
Set logFile = Nothing

作者: 金城月 时间: 2007-5-14 17:13
3楼的朋友很强阿，但是，如果我想要把QTP运行之后所有Fail的内容截取出来放到word里面，因该如何做呢？如何可以截图就最好了。

作者: minlnuorc 时间: 2007-5-14 18:00
3楼的确实是个牛人啊~~
现在才刚学QTP，还没到那个程度~~~
佩服3楼~~~

作者: minlnuorc 时间: 2007-5-15 09:26
请问楼主说的都WORD保存具体是怎么操作的啊？？
我想把每一步操作的结果都保存下来呢~~~
最好是有方法可以将自动生成的原测试结果原封不动的保存？？？

作者: 追逐日光 时间: 2009-4-16 18:21
对呀，测试报告这个东西对于维护还是蛮重要的，靓仔真行呀

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)