Customized HTML reports in UFT

Public strHTMLFileName,strFileURL,htmlresult,fso
@@@@@@@@@@@@@@@@@

Function OpenFile()
On error resume next
strHTMLFileName= gbReportFilePath & "\TestResult_" & Day(now) & "_" & month(now) & "_" & year(now) & "_" & hour(now) & "_" & minute(now) &".html"
StartTime = Timer
stTime = Time

Set fso = CreateObject("Scripting.FileSystemObject")
Set htmlresult = fso.CreateTextFile(strHTMLFileName, ForWriting, True)
'OpenTextFile(strHTMLFileName, ForWriting, True)
strFileURL = strHTMLFileName
 CreateHeader
End Function
@@@@@@@@@@@@
'Create header in reporter file
Function CreateHeader()
On error resume next
htmlresult.writeline("<html>")
htmlresult.writeline("<title>"&Environment("TestName")&"</title>")
htmlresult.WriteLine("<head></head>")
htmlresult.WriteLine("<body>")
htmlresult.WriteLine("<font face='Tahoma'size='2'>")
htmlresult.WriteLine("<h1> Automation Test Results</h1>")
htmlresult.writeline("<table border='0' width='100%' height='47'>")
htmlresult.writeline("<tr>")
'htmlresult.writeline("<td width='13%' bgcolor='#5555FE' align='center'><b><font color='#000000' face='Tahoma' size='2'>TestCaseID</font></b></td>")
htmlresult.writeline("<td width='24%' bgcolor='#5555FE'><b><font color='#000000' face='Tahoma' size='2'>Testcase Description</font></b></td>")
'htmlresult.writeline("<td width='23%' bgcolor='#5555FE'><b><font color='#000000' face='Tahoma' size='2'>Expected Result</font></b></td>")
htmlresult.writeline("<td width='22%' bgcolor='#5555FE'><b><font color='#000000' face='Tahoma' size='2'> Result </font></b></td>")
htmlresult.writeline("<td width='18%' bgcolor='#5555FE' align='center'><b><font color='#000000' face='Tahoma' size='2'>Pass/Fail</font></b></td>")
htmlresult.writeline("<td width='18%' bgcolor='#5555FE' align='center'><b><font color='#000000' face='Tahoma' size='2'>Screenshot</font></b></td>")
htmlresult.writeline("</tr>")
End Function
@@@@@@@@@@@@@@
'Call in test results
Function TestResult(strObjective, strActualResult,strPassFail,Strfilename)
On error resume next
'strScreenshot="K:\everyone\QA_Coimbatore\error.png"
htmlresult.writeline("<tr>")
'htmlresult.writeline("<td width='13%' bgcolor='#FFFFDC' valign='middle' align='center'>" & strTCID & "</td>")
htmlresult.writeline("<td width='24%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strObjective & "</td>")
'htmlresult.writeline("<td width='23%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strExpectedResult & "</td>")
htmlresult.writeline("<td width='22%' bgcolor='#FFFFDC' valign='top' align='justify'>" & strActualResult & "</td>")

'screenshot = "c:\error.jpeg"
if lcase(strPassFail) = "pass" then
'CaptureScreenshot
htmlresult.writeline("<td width='18%' bgcolor='#FFFFDC' valign='middle' align='center'><b><font color='Green' face='Tahoma' size='2'>" & strPassFail & "</font></b></td>")


intPass = intPass + 1
ElseIf lcase(strPassFail) = "fail" Then
'CaptureScreenshot
'htmlresult.writeline("<td width='22%' bgcolor='#FFFFDC' valign='top' align='justify'></td>")
htmlresult.writeline("<td width='18%' bgcolor='#FFFFDC' valign='middle' align='center'><b><font color='Red' face='Tahoma' size='2'>" & strPassFail & "</font></b></td>")
htmlresult.writeline("<td><base target="& "_blank "& "><a href="& ErrorSnap  & " target=" & "_blank" & "data-title= Image" & "> Error Message </a></td>")
intFail = intFail + 1
else
htmlresult.writeline("<td width='18%' bgcolor='#FFFFDC' valign='middle' align='center'><b><font color='Orange' face='Tahoma' size='2'> Not applicable </font></b></td>")


intPass = intPass + 1
end if
htmlresult.writeline("</tr>")
End Function
@@@@@@@@@@@@@@@@
Create footer total test case Pass or Fail and time
Function Footer()
On error resume next
Dim EndTime
EndTime = Timer
enTime = Time
htmlresult.writeline("</table>")
htmlresult.writeline("<hr>")
htmlresult.writeline("<table border='0' width='50%'>")
htmlresult.writeline("<tr><td width='100%' colspan='2' bgcolor='#5555FE'><b><font face='Tahoma' size='2' color='#FFFFFF'>Summary</font></b></td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#029C0F'><b><font face='Tahoma' size='2'>Total Tesresult Passed</font></b></td><td width='55%' bgcolor='#029C0F'>" & intPass & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FB0505'><b><font face='Tahoma' size='2'>Total Tesresult Failed</font></b></td><td width='55%' bgcolor='#FB0505'>" & intFail & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FFFFDC'><b><font face='Tahoma' size='2'>Execution Url</font></b></td><td width='55%' bgcolor= '#FFFFDC'>" & gburl & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FFFFDC'><b><font face='Tahoma' size='2'>Executed On</font></b></td><td width='55%' bgcolor= '#FFFFDC'>" & Date & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FFFFDC'><b><font face='Tahoma' size='2'>Start Time</font></b></td><td width='55%' bgcolor= '#FFFFDC'>" & stTime & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FFFFDC'><b><font face='Tahoma' size='2'>End Time</font></b></td><td width='55%' bgcolor= '#FFFFDC'>" & enTime & "</td></tr>")
htmlresult.writeline("<tr><td width='45%' bgcolor='#FFFFDC'><b><font face='Tahoma' size='2'>Execution Time</font></b></td><td width='55%' bgcolor= '#FFFFDC'>" &  int((CDbl(EndTime - StartTime))/60) & "    Minutes"& "</td></tr>")

htmlresult.writeline("</table>")
htmlresult.writeline("</font>")
htmlresult.WriteLine("</body>")
htmlresult.WriteLine("</html>")
End Function
@@@@@@@@@@@
Open the HTML Report
Function CloseFile()
On error resume next
Footer()
htmlresult.close()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.visible = True
objIE.Navigate strFileURL
End Function

Comments

Post a Comment

Popular posts from this blog

UFT File Types and File Extensions

QTP Script File            :    .mts  ( mercury test script) QTP Local Repository  :    .bdb (berkely database) Shared Repository        :    .tsr ( test shared repository) Load test configuration file : Default.cfg Load test configuration file  : Default.usp Test Settings File -------- Test.Tsp Test Parameters file ---- Parameters.mtr Input / Output Data Datatable  ( Excel file) ---Default.xls Resource.mtr- ------- contain the resources associated information like function library, recovery, shared repository(mercury test repository) Recovery Scenario   -------- .qrs Function library- ----------.vbs / .qfl / .txt Batch Test-- -------------  .mtb Action Template ---------  .mst ( mercury shared template) Virutal Object- ---------  .vot  ( virtual object template) lock.lck-- ----------- Created when the QTP test is open Environmental Variable Files ------- .txt, .ini, .xml
Read more

QTP/UFT Version History

What is QTP (UFT)? QuickTest Professional, popularly known by its acronym QTP is an automation testing tool originally from Mercury Interactive which was acquired by Hewlett Packard (HP) in 2006. QTP is primarily used for functional and regression automated testing. Using QTP, you can automate user actions on a web or client based computer application and test the same actions for different users, different data set, on various Windows operating systems and/or different browsers. Automation using QTP if planned and executed in a proper manner can save considerable time and money. With the release of version 11.50, QTP and Service Test became part of UFT 11.50 software. QTP is one of the most widely used automation testing tools in the market today with over 60% market share. Due to this reason, skilled QTP professionals are always in demand. Version history of QTP:- Astra Quicktest (First version) The first version of QTP was named Astra QuickTest and it was released by Mer
Read more

Synchronization in UFT

Image
When we automate the script most of the time we faced several issues with performance of application. sometimes application becomes slow in response sometimes fast. then how we show make sure that our script should run in irrespective of the application performance and response? all automation tools provide specific functions which handles these performance issue. UFT also has Synchronization mechanism to make sure that script will not fail. Lets discuss more about the Synchronization. There are 5 different ways to handle the synchronization. WaitProperty Exist Wait Sync(only for web based apps) Default Synchronization WaitProperty: WaitProperty is a method  which can be apply on any object in UFT. It takes the property name, Value and Timeout value as input to perform the sync. It is a dynamic wait, it means once the object is get visible/enable or state becomes true corresponding action gets performed. so it is highly recommended options. Example : lets put wa
Read more