Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Copy all child elements (and attributes, comments, text nodes) from one XML node to another.

Implementation

Public Function CopyChildElements(ByRef objXMLSrc, ByRef objXMLDest)
   Dim objCloneNode
 
   If objXMLSrc is Nothing Then
    Set MoveChildElements = objXMLDest
    Exit Function
   End If

   If objXMLDest is Nothing Then
    Set objXMLDest = objXMLSrc.CloneNode(True)
    Set CopyChildElements = objXMLDest
    Exit Function
   End If

   Set objCloneNode = objXMLSrc.CloneNode(True)

   While Not (objCloneNode.FirstChild is Nothing)
    Call objXMLDest.AppendChild(objCloneNode.FirstChild)
   Wend

   Set objCloneNode = Nothing

   Set CopyChildElements = objXMLDest

End Function

Test Code

  Set objXMLDoc = CreateXMLDOM("test")
  Set objXMLParent = CreateChildElementByName(objXMLDoc.DocumentElement, "Modules", "modules parent node")
  If objXMLParent is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 1")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 2")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 3")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If

  sText = "<root>text</root>"
  Set objXMLDoc2 = CreateXMLDOMFromString(sText)
  If objXMLDoc2 is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateXMLDOMFromString", "")
  End If

  Set objXMLParent2 = Nothing
  Set objXMLParent2 = CopyChildElements(objXMLParent, objXMLParent2)

  Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  Set objXMLNode = ChildElementByName(objXMLParent, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If

  Set objXMLParent2 = CreateChildElementByName(objXMLDoc2.DocumentElement, "Modules", "modules parent node dest")
  If objXMLParent2 is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLParent2 = CopyChildElements(objXMLParent, objXMLParent2)
  Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  Set objXMLNode = ChildElementByName(objXMLParent, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If

Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Move all child elements (and attributes, comments, text nodes) from one XML node to another. 

Implementation

Public Function MoveChildElements(ByRef objXMLSrc, ByRef objXMLDest)

   If objXMLSrc is Nothing Then
    Set MoveChildElements = objXMLDest
    Exit Function
   End If

   If objXMLDest is Nothing Then
    Set objXMLDest = objXMLSrc.CloneNode(False)
   End If

   While Not (objXMLSrc.FirstChild is Nothing)
    Call objXMLDest.AppendChild(objXMLSrc.FirstChild)
   Wend

   Set MoveChildElements = objXMLDest

End Function

Test Code

  Set objXMLDoc = CreateXMLDOM("test")
  Set objXMLParent = CreateChildElementByName(objXMLDoc.DocumentElement, "Modules", "modules parent node")
  If objXMLParent is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 1")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 2")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 3")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If

  sText = "<root>text</root>"
  Set objXMLDoc2 = CreateXMLDOMFromString(sText)
  If objXMLDoc2 is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateXMLDOMFromString", "")
  End If
  Set objXMLParent2 = CreateChildElementByName(objXMLDoc2.DocumentElement, "Modules", "modules parent node dest")
  If objXMLParent2 is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If

  Set objXMLParent2 = MoveChildElements(objXMLParent, objXMLParent2)

  Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If

  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 1")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 2")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If
  Set objXMLNode = CreateChildElementByName(objXMLParent, "Macro", "macro node 3")
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "CreateChildElementByName", "")
  End If

  Set objXMLParent2 = Nothing
  Set objXMLParent2 = MoveChildElements(objXMLParent, objXMLParent2)

  Set objXMLNode = ChildElementByName(objXMLParent2, "Macro") 
  If objXMLNode is Nothing Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.BaseName <> "Macro" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If
  If objXMLNode.Text <> "macro node 1" Then
    Call Reporter.ReportEvent(micFail, "ChildElementByName", "")
  End If

Description 

Get object reference. Get total number of items in the list. Generate an index within the given range. Select item by index.

Implementation

Dim objPage, objList
Dim boolRC
Dim intItemsCount, intRndItem

'Assumptions:
' "Google Advanced Search" page is up
' "Results per page" WebList exists and enabled

'Get page object
Set objPage = Browser("CreationTime:=0").Page("title:=Google Advanced Search")
boolRC = objPage.Exist(0)
If Not boolRC Then
 ExitTest
End If

'Get list object
Set objList = objPage.WebList("name:=num")
boolRC = objList.Exist(0)
If Not boolRC Then
 ExitTest
End If

'Get number of list items
intItemsCount = objList.GetROProperty("items count")
'Create random index
Randomize
intRndItem = CInt(Rnd*intItemsCount)
'Select the item
'Note: selection by index is zero-based
objList.Select "#" & intRndItem

Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Locate XML node depth within the hierarchy. Valid argument: an XML element node (NODE_ELEMENT type). 

Implementation

Public Function XMLElementDepth(ByRef objXMLElement)
   Dim intDepth
   Dim objXMLNode

  If objXMLElement is Nothing Then
  XMLElementDepth = -1
  Exit Function
 End If

 'NODE_DOCUMENT(9)
 If objXMLElement.NodeType = 9 Then
  XMLElementDepth = 0
  Exit Function
 End If

 'NODE_ELEMENT(1)
 If objXMLElement.NodeType <> 1 Then
  XMLElementDepth = -1
  Exit Function
 End If

 intDepth = 0
 Set objXMLNode = objXMLElement
 Do While True
  Set objXMLNode = objXMLNode.parentNode
  intDepth = intDepth + 1
  If objXMLNode.NodeType = 9 Then
   Exit Do
  End If
 Loop

 XMLElementDepth = intDepth

End Function

Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Create XML DOM object by loading source XML from string. If the string is empty or source XML is invalid returns Nothing.

Implementation

Public Function CreateXMLDOMFromString(ByVal sXMLSource)
  Dim boolRC, intRC
  Dim objXMLDoc, objXMLRoot
 
  If Trim(sXMLSource) = "" Then
    Set CreateXMLDOMFromString = Nothing
    Exit Function
  End If
 
  Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
  objXMLDoc.async = False
 
  On Error Resume Next
  objXMLDoc.loadXML(sXMLSource)
  intRC = Err.Number
  On Error GoTo 0
 
  If boolRC Then
    Set objXMLDoc = Nothing
    Set CreateXMLDOMFromString = Nothing
    Exit Function
  End If    

  Set objXMLRoot = objXMLDoc.documentElement
  boolRC = isNull(objXMLRoot) or (objXMLRoot is Nothing) 
  If boolRC Then
    Set objXMLDoc = Nothing
    Set CreateXMLDOMFromString = Nothing
    Exit Function
  End If    
 
  Set CreateXMLDOMFromString = objXMLDoc
End Function

Test Code

  Set objXMLDoc = CreateXMLDOMFromString("")
  If Not (objXMLDoc is Nothing) Then
    Log.Error "CreateXMLDOMFromString failed"
  End If

  sText = "<root>text<root>"
  Set objXMLDoc = CreateXMLDOMFromString(sText)
  If Not (objXMLDoc is Nothing) Then
    Log.Error "CreateXMLDOMFromString failed"
  End If

  sText = "<root>text</root>"
  Set objXMLDoc = CreateXMLDOMFromString(sText)
  If objXMLDoc is Nothing Then
    Log.Error "CreateXMLDOMFromString failed"
  End If

  sText = "<root>text <case>test case</case></root>"
  Set objXMLDoc = CreateXMLDOMFromString(sText)
  If objXMLDoc is Nothing Then
    Log.Error "CreateXMLDOMFromString failed"
  End If
  Set objXMLNode = ChildElementByName(objXMLDoc.DocumentElement, "case") 
  If objXMLNode is Nothing Then
    Log.Error "CreateXMLDOMFromString failed"
  End If
  If objXMLNode.BaseName <> "case" Then
    Log.Error "CreateXMLDOMFromString failed"
  End If
  If objXMLNode.Text <> "test case" Then
    Log.Error "CreateXMLDOMFromString failed"
  End If

Reference page: Service Functions – System (QTP, VBScript)

Description 

Check folder exists – check folder has files. Iterate through collection of files and keep reference of the most recently modified file (its DateLastModified property is always the highest number). The remaining reference is the one that you need. In case of errors the function returns Nothing. 

Note. In some cases, you may want to use DateCreated or DateLastAccessed properties.

Implementation

Public Function GetLastModifiedFile(ByVal sFolderPath)
  Dim FSO, objFolder, objFile
  Dim objFileResult, longDateTime
  Dim boolRC
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  boolRC = FSO.FolderExists(sFolderPath)
  If Not boolRC Then
    Set FSO = Nothing
    Set GetLastModifiedFile = Nothing
    Exit Function
  End If

  Set objFolder = FSO.GetFolder(sFolderPath)
  If objFolder.Files.Count = 0 Then
    Set FSO = Nothing
    Set objFolder = Nothing
    Set GetLastModifiedFile = Nothing
    Exit Function
  End If
 
  Set objFileResult = Nothing
  longDateTime = CDate(0)
 
  For Each objFile in objFolder.Files
 
    If objFile.DateLastModified > longDateTime Then
      Set objFileResult = objFile
      longDateTime = objFile.DateLastModified
    End If
   
  Next
 
  Set FSO = Nothing
  Set objFolder = Nothing
  Set GetLastModifiedFile = objFileResult

End Function

Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

For each occurrence of XML node perform conversion to Dictionary, and store all records in indexed Dictionary object.

Implementation

Public Function XMLNodeSet2Dictionary(ByRef objXMLNodeSet)
  Dim objDictionary
  Dim Iter

  Set objDictionary = CreateObject("Scripting.Dictionary")
 If objXMLNodeSet is Nothing Then
  Set XMLNodeSet2Dictionary = objDictionary
  Exit Function
 End If
 
  For Iter=0 To objXMLNodeSet.length-1
    Set objDictionary.Item(Iter+1) = XMLNode2Dictionary(objXMLNodeSet.Item(Iter))
  Next
 
  Set XMLNodeSet2Dictionary = objDictionary
 
End Function

Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Create Dictionary object and populate with data (only direct content – text, comments, CData, and attributes) taken from XML node.

Naming convention:

• @attr_name for attributes;
• #text_index for text nodes;
• #comment_index for comment nodes;
• #cdata_index for CData Section nodes.

Implementation

Public Function XMLNode2Dictionary(ByRef objXMLElement)
  Dim objDictionary
  Dim objColl, objAttr, Iter
  Dim intCommentCount, intTextCount, intCDataCount
 
  Set objDictionary = CreateObject("Scripting.Dictionary")
 If objXMLElement is Nothing Then
    objDictionary.Item("#innertext") = ""
  Set XMLNode2Dictionary = objDictionary
  Exit Function
 End If
 
  objDictionary.Item("#innertext") = objXMLElement.Text
 
  intCommentCount = 0
  intTextCount = 0
  intCDataCount = 0

  Set objColl = objXMLElement.ChildNodes
  For Iter=0 To objColl.length-1
    Select Case objColl.Item(Iter).NodeName
      Case "#comment"
        intCommentCount = intCommentCount + 1
        objDictionary.Item("#comment_"&intCommentCount) = objColl.Item(Iter).NodeValue
      Case "#text"
        intTextCount = intTextCount + 1
        objDictionary.Item("#text_"&intTextCount) = objColl.Item(Iter).NodeValue
      Case "#cdata-section"
        intCDataCount = intCDataCount + 1
        objDictionary.Item("#cdata_"&intCDataCount) = objColl.Item(Iter).NodeValue
      Case Else
        'ignore
    End Select
  Next
 
  For Each objAttr in objXMLElement.Attributes
    objDictionary.Item("@"&objAttr.Name) = objAttr.Value
  Next
    
 Set XMLNode2Dictionary = objDictionary
 
End Function

Parent page: Generating Test Reports

Today I put all examples together. 
Here’s our XML record simulating log data of a test session.

XML Source

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href=".\LogView4.xsl"?>
<log>
 <area id="A001">
  <description>Testing login page, invalid password</description>

  <step type="#note" id="A001-S001">
    <time>21/04/2011 11:45:31 AM</time>
    <description>Typed data [User1234] in edit box [Username] </description>
  </step>
  <step type="#note" id="A001-S002">
    <time>21/04/2011 11:46:03 AM</time>
    <description>Typed data [WrongPassword] in edit box [Password]</description>
  </step>
  <step type="#idea" id="A001-S003">
    <time>21/04/2011 11:46:37 AM</time>
    <description>Explore "Remember Me" functionality</description>
  </step>
  <step type="#note" id="A001-S004">
    <time>21/04/2011 11:47:01 AM</time>
    <description>Clicked on button [Login]</description>
  </step>
  <step type="#bug" id="A001-S005">
    <time>21/04/2011 11:47:22 AM</time>
    <flags screenshot="YES" />
    <screenshot>20111145_012852.jpg</screenshot>
    <description>Unfriendly error dialog</description>
  </step>
 </area>
 <area id="A002">
  <description>Testing login page, using non-text chars</description>

  <step type="#note" id="A002-S001">
    <time>21/04/2011 11:48:07 AM</time>
    <description>Typed data [User1234] in edit box [Username] </description>
  </step>
  <step type="#note" id="A002-S002">
    <time>21/04/2011 11:48:33 AM</time>
    <description>Typed data [Password1234!] in edit box [Password]</description>
  </step>
  <step type="#bug" id="A002-S003">
    <time>21/04/2011 11:51:02 AM</time>
    <description>Edit box [Password] didn't accept [!@#$] chars</description>
  </step>
  <step type="#idea" id="A002-S004">
    <time>21/04/2011 11:52:18 AM</time>
    <description>See if can assign non-text chars for psw at the back-end</description>
  </step>
 </area>
</log>

The following line

<?xml-stylesheet type=”text/xsl” href=”.\LogView4.xsl”?>

instructs the web browser to use XSL script for visualization of XML data.

Web-page Report

And here’s the source code of the script

XSL Source

<xsl:stylesheet version="1.0"  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                  xmlns:xs="http://www.w3.org/2001/XMLSchema">

<!-- variables -->
<xsl:variable name="CHAR_SPC">&#160;</xsl:variable>

<xsl:template match="/">

<html>

<head>
<LINK REL="STYLESHEET" HREF=".\logstyle.css" TYPE="text/css" />
<script type="text/javascript" src=".\LogView4.js"></script>

<title>automation-beyond.com | TestLog XML/XSL Transformation Example by Albert Gareev</title>
</head>

<body bgcolor="#c0c0c0">

<H1 align="center">Test Log</H1>
<H4 align="center">XML/XSL Transformation Example by <A HREF="http://automation-beyond.com/about/">Albert Gareev</A></H4>
<BR />
<P />
<h3 align="center">Test Steps</h3>
<BR />
<TABLE id="automation-beyond-2010" BORDER="1" width="650" align="center">
<TR>
  <TH width="150">Step Name</TH>
  <TH width="500">Step Description</TH>
</TR>

<xsl:for-each select="log/area">
  <xsl:call-template name="Display_Area">
    <xsl:with-param name="AttrDisplay">display:block</xsl:with-param>
  </xsl:call-template>
</xsl:for-each>
</TABLE>
<BR />
<BR />
<BR />
<BR />

<div class="PageBottomLine" align="center">
<A HREF="http://automation-beyond.com/chapters/tutorials/test-reports/">Home</A>
</div>
<BR />

</body>

</html>
</xsl:template>

<!-- **************Sub-Templates****************************************** -->

<!-- **************Area****************************************** -->
<xsl:template name="Display_Area">
   <xsl:param name="AttrDisplay"/>

<TR style="display:none">
   <xsl:attribute name="id"><xsl:value-of select = "@id" />-W010</xsl:attribute>
   <TD valign="bottom" colspan="2">
   <HR />
   </TD>

</TR>

<TR>
   <xsl:attribute name="style"><xsl:value-of select = "$AttrDisplay" /></xsl:attribute>
   <xsl:attribute name="id"> <xsl:value-of select = "@id" /> </xsl:attribute>

   <TD valign="bottom">
     <IMG src=".\right1.png" onmouseover="this.style.cursor='hand'" >
       <xsl:attribute name="id"><xsl:value-of select = "@id" />-I010</xsl:attribute>
       <xsl:attribute name="onClick">ShowHide('<xsl:value-of select = "@id" />')</xsl:attribute>
     </IMG>

   Area
   </TD>

  <TD><xsl:value-of select = "description" /></TD>

</TR>

 <xsl:for-each select="step">
  <xsl:choose>

    <xsl:when test = " @type = '#note' ">
      <xsl:call-template name="Display_Note">
        <xsl:with-param name="AttrDisplay">display:none</xsl:with-param>
	</xsl:call-template>
    </xsl:when>

    <xsl:when test = " @type = '#idea' ">
      <xsl:call-template name="Display_Idea">
        <xsl:with-param name="AttrDisplay">display:none</xsl:with-param>
	</xsl:call-template>
    </xsl:when>

    <xsl:when test = " @type = '#bug' ">
      <xsl:call-template name="Display_Bug">
        <xsl:with-param name="AttrDisplay">display:none</xsl:with-param>
	</xsl:call-template>
    </xsl:when>

    <xsl:otherwise>
      <TR>
        <TD>Error</TD>
        <TD>XML data error</TD>
     </TR>
    </xsl:otherwise>

  </xsl:choose>
 </xsl:for-each>

<TR style="display:none">
   <xsl:attribute name="id"><xsl:value-of select = "@id" />-W020</xsl:attribute>
   <TD valign="bottom" colspan="2">
   <HR />
   </TD>

</TR>

</xsl:template>

<!-- **************Test Note****************************************** -->
<xsl:template name="Display_Note">
 <xsl:param name="AttrDisplay"/>

  <TR>
   <xsl:attribute name="style"><xsl:value-of select = "$AttrDisplay" /></xsl:attribute>
   <xsl:attribute name="id"> <xsl:value-of select = "@id" /> </xsl:attribute>
      <TD>
        <xsl:attribute name="title"><xsl:value-of select = "time" /></xsl:attribute>
        Test Note
      </TD>
      <TD><xsl:value-of select = "description" /><xsl:value-of select = "$CHAR_SPC" /></TD>
  </TR>
</xsl:template>

<!-- **************Test Idea****************************************** -->
<xsl:template name="Display_Idea">
 <xsl:param name="AttrDisplay"/>

  <TR>
   <xsl:attribute name="style"><xsl:value-of select = "$AttrDisplay" /></xsl:attribute>
   <xsl:attribute name="id"> <xsl:value-of select = "@id" /> </xsl:attribute>
      <TD>
        <xsl:attribute name="title"><xsl:value-of select = "time" /></xsl:attribute>
        <IMG src=".\test_idea.png" />
        Test Idea
      </TD>
      <TD><xsl:value-of select = "description" /><xsl:value-of select = "$CHAR_SPC" /></TD>
  </TR>
</xsl:template>

<!-- **************Logged Bug****************************************** -->
<xsl:template name="Display_Bug">
 <xsl:param name="AttrDisplay"/>

  <TR>
   <xsl:attribute name="style"><xsl:value-of select = "$AttrDisplay" /></xsl:attribute>
   <xsl:attribute name="id"> <xsl:value-of select = "@id" /> </xsl:attribute>
      <TD>
        <xsl:attribute name="title"><xsl:value-of select = "time" /></xsl:attribute>
        <IMG src=".\bug.png" />
        Bug
      </TD>

      <xsl:choose>
        <xsl:when test=" flags/@screenshot = 'YES' ">
          <TD>
 	      <xsl:attribute name="title">Click on the link to view the image attached</xsl:attribute>
	      <A style="text-decoration: none" TARGET="_blank">
		  <xsl:attribute name="href">
		    <xsl:value-of select="screenshot" />
		  </xsl:attribute>
              <IMG border="0" src=".\picture_save.png" onmouseover="this.style.cursor='hand'" />
            </A>
            <xsl:value-of select = "$CHAR_SPC" />
            <span class="stFAIL_m1"><xsl:value-of select = "description" /></span>
          </TD>
        </xsl:when>

        <xsl:otherwise>
          <TD>
            <span class="stFAIL_m1"><xsl:value-of select = "description" /><xsl:value-of select = "$CHAR_SPC" /></span>
          </TD>
        </xsl:otherwise>
      </xsl:choose>

  </TR>
</xsl:template>

</xsl:stylesheet>

Last but not least, the package containing the original XML, XSL, CSS, and image files.

Parent page: Generating Test Reports

Today’s post is a little bit of a side mini-project within the test reports theme. What I wanted is to add more structure in test logs, but made it summarized. So I went to explore about simple approaches in that.

Very often, on static pages (without AJAX) the approach used is switching HTML blocks between visible and invisible state. I provide a couple of working examples below.

Example 1 – Table In a Table

<script type="text/javascript"><!--mce:0--></script>

<!--
th{
text-align: left;
cursor: pointer;
}
table tbody tr td{
padding-left: 15px;
}
-->
<table>
<tbody>
<tr>
<td>
<table>
<thead>
<tr>
<th onclick="ShowHide(this)">Log</th>
</tr>
</thead>
<tbody>
<tr>
<td>sub 1</td>
</tr>
<tr>
<td>
<table>
<thead>
<tr>
<th onclick="ShowHide(this)">Sub 1</th>
</tr>
</thead>
<tbody>
<tr>
<td>
<table>
<thead>
<tr>
<th onclick="ShowHide(this)">sub 1 1</th>
</tr>
</thead>
<tbody>
<tr>
<td>sub 1 1 1</td>
</tr>
<tr>
<td>sub 1 1 2</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>sub 2 2</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<div>
<a href="http://automation-beyond.com/chapters/tutorials/test-reports/">Home</a></div>

And here is the demo file to download: Collapse1

Example 2 – Unique Blocks Inside the Table

<script type="text/javascript"><!--mce:1--></script>
<table>
<tbody>
<tr>
<th onclick="ShowHide('1')">Area 1</th>
</tr>
</tbody>
<tbody id="1">
<tr>
<td>Test Note</td>
</tr>
<tr>
<td>Test Note</td>
</tr>
</tbody>
<tbody>
<tr>
<th onclick="ShowHide('2')">Area 2</th>
</tr>
</tbody>
<tbody id="2" style="display: block;">
<tr>
<td>Test Note</td>
</tr>
<tr>
<td>Test Note</td>
</tr>
</tbody>
</table>
<div>
<a href="http://automation-beyond.com/chapters/tutorials/test-reports/">Home</a></div>

And here is the demo file to download: Collapse2