空间管理您的位置: 51Testing软件测试网 » 子木清风 » 日志

不要追求绝对的公平，红尘之中没有公平而言，人活一世，难得糊涂。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　it is no use doing what you like, you have got to like what you do.

QTP HTML Report Functions

上一篇 / 下一篇 2009-06-10 15:04:04 / 个人分类：自动化测试

查看( 790 ) / 评论( 1 ) / 评分( 0 / 0 )

每日随笔

每日随笔:

' Variables

Dim fso, ts
dim intCnt
Const ForWriting = 2
dim intPass,intFail
dim StartTime
dim stTime
dim enTime
dim objIE
dim strFileURL

'Implementation
OpenFile "C:\Test.html"
AddNewCase 1,"X","X","X","Pass"
AddNewCase 2,"X","X","X","Fail"
AddNewCase 3,"X","X","X","Pass"
CloseFile

' Function To Open the HTML file

Function OpenFile(strFileName)
StartTime = Timer
stTime = Time
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(strFileName, ForWriting, True)
strFileURL = strFileName
CreateHeader
End Function

' Function To Create Header

Function CreateHeader()
ts.writeline("<html>")
ts.writeline("<title>Test Results</title>")
ts.WriteLine("<head></head>")
ts.WriteLine("<body>")
ts.WriteLine("")
ts.WriteLine("<h1>Test Results</h1>")
ts.writeline("<table border='0' width='100%' height='47'>")
ts.writeline("<tr>")
ts.writeline("<td width='13%' bgcolor='#CCCCFF' align='center'>TestCaseID</td>")
ts.writeline("<td width='24%' bgcolor='#CCCCFF'>Objective</td>")
ts.writeline("<td width='23%' bgcolor='#CCCCFF'>Expected Result</td>")
ts.writeline("<td width='22%' bgcolor='#CCCCFF'>Actual Result</td>")
ts.writeline("<td width='18%' bgcolor='#CCCCFF' align='center'>Pass/Fail</td>")
ts.writeline("</tr>")
End Function

' Function To Add New Case

Function AddNewCase(strTCID,strObjective,strExpectedResult,strActualResult,strPassFail)
ts.writeline("<tr>")
ts.writeline("<td width='13%' bgcolor='#FFFFDC' valign='middle' align='center'>" & strTCID & "</td>")
ts.writeline("<td width='24%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strObjective & "</td>")
ts.writeline("<td width='23%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strExpectedResult & "</td>")
ts.writeline("<td width='22%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strActualResult & "</td>")
if strPassFail = "Pass" then
ts.writeline("<td width='18%' bgcolor='#FFFFDC' valign='middle' align='center'>" & strPassFail & "</td>")
intPass = intPass + 1
else
ts.writeline("<td width='18%' bgcolor='#FFFFDC' valign='middle' align='center'>" & strPassFail & "</td>")
intFail = intFail + 1
end if
ts.writeline("</tr>")
End Function

' Function To Footer Info

Function Footer()
Dim EndTime
EndTime = Timer
enTime = Time
ts.writeline("</table>")
ts.writeline("<hr>")
ts.writeline("<table border='0' width='50%'>")
ts.writeline("<tr><td width='100%' colspan='2' bgcolor='#000000'>Summary</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#E8FFE8'>Total Tests Passed</td><td width='55%' bgcolor='#E8FFE8'>" & intPass & "</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#FFE6FF'>Total Tests Failed</td><td width='55%' bgcolor='#FFE6FF'>" & intFail & "</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#FFFFDC'>Executed On</td><td width='55%' bgcolor= '#FFFFDC'>" & Date & "</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#FFFFDC'>Start Time</td><td width='55%' bgcolor= '#FFFFDC'>" & stTime & "</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#FFFFDC'>End Time</td><td width='55%' bgcolor= '#FFFFDC'>" & enTime & "</td></tr>")
ts.writeline("<tr><td width='45%' bgcolor='#FFFFDC'>Execution Time</td><td width='55%' bgcolor= '#FFFFDC'>" & CDbl(EndTime - StartTime) & "</td></tr>")
ts.writeline("</table>")
ts.writeline("")
ts.WriteLine("</body>")
ts.WriteLine("</html>")
End Function

' Function To Close File

Function CloseFile()
Footer
ts.close()
Set bjIE = CreateObject("InternetExplorer.Application")
objIE.visible = True
objIE.Navigate strFileURL
End Function