Quick Test Professional (QTP) - Object Repository Modes

There are two types of object repositories or rather the object repository modes

Pre-Action versus Shared Object Repository

Quick Test Professional (QTP) - QC Open Test Architecture (OTA)

QC OTA provides a very large object model. Figure 1 shows a few selected objects from that model.

The Quality Center Open Test Architecture API is a COM library that enables you to integrate external applications with Quality Center. 

Object Model

Figure 1. OTA Object Model

Quality Centre is a HP product, well before was HP it was owned by Mercury. Well this product is basically used by QA Organization with in a company as a Test Management Tool. Most of the organizations use this. However there could be a scenario where a particular project requires to use some other tool to log defects/ bugs. For ex: a project running in an Agile development environment that may use BugZilla for example, so development using 1 tool and QA using its organization specific QualityCenter may not be possible or in other words its hell a lot of work to enter bugs in to both the tools & keep them in sync as the project goes along.

To handle those scenarios QualityCenter comes with an API that a project can use to sync up other tools with QualityCenter. This API is called Open Test Architecture (OTA). You may notice QuickTest Professional and Quality Centre also uses this API to speak to each other. Another example is, people exporting bulk tests/  defects/ requirements in to QualityCentre from excel. This process also uses OTA in the background. However for this API the entry point is TDconnect.exe. You can download this exe file from internet by google'ing for it. Once you install this you will have the flexibility to use this in Excel or use the references/ API's in any other programming languages.

This way user can directly play with the database that the Quality Centre is running on without opening the GUI for it. You can literally perform every function that you can perform by logging on to its console.

In order to perform most of the above mentioned stuff you would need to know the database structure/ schema so you know which table, which column to hit to get a value associated with a particular field in QC. Database schema is all open for everyone to know and is available on-line as well.

If you have Quality Centre installed on your machine, you can find the OTA reference guide, OTA database guide, and OTA custom type help files in your help folder. Alternatively, you can hit Help and then go to documentation page where you should get all this documentation ready available for you to either reference or download. In these help files you should see a good set of examples for each and every class module that we can use. an Example code to connect to QC is found as below:

Exmaple 1: How to Connect to Quality Centre using OTA API

Private Function makeConnection(ByVal qcHostName$, qcDomain$, qcProject$, _

qcUser$, qcPassword$, Optional qcPort) As Boolean

'------------------------------------------------------------------------

' This routine makes the connection to the gobal TDConnection object,

' declared at the project level as Global tdc as TDConnection,

' and connects the user to the specified project.

'-----------------------------------------------------------------------

Dim qcServer As String

Const fName = "makeConnection" 'For error message

On Error GoTo makeConnectionErr

errmsg = ""

'Construct server argument of format "http://server:port/qcbin"

qcServer = "http://" & qcHostName

If Not (IsMissing(qcPort)) Then

If Len(qcPort) > 0 Then qcServer = qcServer & ":" & qcPort

End If

qcServer = qcServer & "/qcbin"

''Check status (For illustrative purposes.)

' 'MsgBox tdc.LoggedIn 'Error: OTA Server is not connected

' MsgBox tdc.Connected 'False

' MsgBox tdc.ServerName 'Blank string

'Create the connection

errmsg = "Failed to create TDConnection"

If (tdc Is Nothing) Then Set tdc = New TDConnection

If (tdc Is Nothing) Then GoTo makeConnectionErr

errmsg = ""

tdc.InitConnectionEx qcServer

''Check status.

' MsgBox tdc.LoggedIn 'False

' MsgBox tdc.Connected 'True

' MsgBox tdc.ServerName 'http:///qcbin/wcomsrv.dll

'Log on to server

tdc.Login qcUser, qcPassword

''Check status.

' MsgBox tdc.LoggedIn 'True

' MsgBox tdc.ProjectName 'Empty String

' MsgBox tdc.ProjectConnected 'False

' Connect to the project and user

tdc.Connect qcDomain, qcProject

' MsgBox tdc.ProjectName 'qcProject

' MsgBox tdc.ProjectConnected 'True

' Exit status

makeConnection = SUCCESS

Exit Function

makeConnectionErr:

ErrHandler err, fName, err.Description & vbCrLf & errmsg

makeConnection = FAILURE

End Function

Here you can customise this to be a public function and create an object as in QCObject to connect to Quality Center and set it to Nothing once the job is done. Some issues I have encountered while working with OTA API is if you keep connected to the object and working away for long time, you may get Automation Error: suggesting Quality Centre connections is no more available or something similar to this. Its always suggested to connect to it before performing an operation and close the connection once the job done and so on.

Exmaple 2: How to Use Filter method to filter the results (Bug Factory)

Sub BugFilter()

Dim BugFact As BugFactory

Dim BugFilter As TDFilter

Dim BugList As list

Dim theBug As Bug

Dim i%, msg$

'Get the bug factory filter

'tdc is the global TDConnection object.

Set BugFact = tdc.BugFactory

Set BugFilter = BugFact.Filter

'Set the filter values

BugFilter.Filter("BG_STATUS") = "Closed"

BugFilter.Order("BG_PRIORITY") = 1

MsgBox BugFilter.Text

'Create a list of defects from the filter

' and show a few of them

Set BugList = BugFilter.NewList

msg = "Number of defects = " & BugList.Count & Chr(13)

For Each theBug In BugList

msg = msg & theBug.ID & ", " & theBug.Summary & ", " _

& theBug.Status & ", " & theBug.Priority & Chr(13)

i = i + 1

If i > 10 Then Exit For

Next

MsgBox msg

End Sub

Exmaple 3: Find a specified requirement in a specified folder

Public Function GetReqByPath(fullPath$, _

Optional delimChar As String = "\") _

As Req

' This function returns a Req object specified by its

' full path.

' For example:

' Set r = GetReqByPath("SCRATCH\OTA_REQ_DEMO\OTA_S_O_1")

' will return the OTA_S_O_1 object.

' A requirement name is not unique in the project, but it is

' unique as a direct child of another requirement.

' Therefore, these routine works by walking down the

' requirement tree along the fullPath until the requirement

' is found at the end of the path.

' If a backslash is not used as the folder delimiter, any other

' character can be passed in the delimChar argurment.

Dim rFact As reqFactory

Dim theReq As Req, ParentReq As Req

Dim reqList As list

Dim NodeArray() As String, PathArray() As String

Dim WorkingDepth As Integer

On Error GoTo GetReqByPathErr

'Trim the fullPath and strip leading and trailing delimiters

fullPath = Trim(fullPath)

Dim pos%, ln%

pos = InStr(1, fullPath, delimChar)

If pos = 1 Then

fullPath = Mid(fullPath, 2)

End If

ln = Len(fullPath)

pos = InStr(ln - 1, fullPath, delimChar)

If pos > 0 Then

fullPath = Mid(fullPath, 1, ln - 1)

End If

' Get an array of requirements, and the length

' of the path

NodeArray = Split(fullPath, delimChar)

WorkingDepth = LBound(NodeArray)

' Walk down the tree

'tdc is the global TDConnection object.

Set rFact = tdc.reqFactory

For WorkingDepth = LBound(NodeArray) To UBound(NodeArray)

'First time, find under the root (-1)

'After that, under the previous requirement found: ParentReq.ID

If WorkingDepth = LBound(NodeArray) Then

Set reqList = rFact.Find(-1, "RQ_REQ_NAME", _

NodeArray(WorkingDepth), TDREQMODE_FIND_EXACT)

Else

Set reqList = rFact.Find(ParentReq.ID, "RQ_REQ_NAME", _

NodeArray(WorkingDepth), TDREQMODE_FIND_EXACT)

End If

' Delete parent. Each loop has to find it again.

Set ParentReq = Nothing

Dim strItem, reqID&, strID$, thePath$

For Each strItem In reqList

' The List returned from ReqFactory.Find is a List

' of strings of format ID,Name.

' For example "9,Products/Services On Sale"

' Extract the ID from the string by splitting the

' string at the comma.

pos = InStr(strItem, ",")

strID = Mid(strItem, 1, pos - 1)

' Convert the ID to a long, and get the object

reqID = CLng(strID)

Set theReq = rFact.Item(reqID)

'Now check that the object is at the correct depth.

'If so, we've found the requirement. On the next loop,

'we'll look from here down.

thePath = theReq.Path

PathArray = Split(thePath, "\")

' Debug.Print "Number of elements is " & UBound(PathArray)

' Debug.Print theReq.ID, theReq.Name

If UBound(PathArray) = WorkingDepth Then

Set ParentReq = theReq

Exit For

End If

Next strItem

If ParentReq Is Nothing Then Exit For

Next WorkingDepth

Set GetReqByPath = ParentReq

Exit Function

GetReqByPathErr:

ErrHandler err, "GetReqByPath"

Set GetReqByPath = Nothing

End Function

Exmaple 4: How to Create a Test using OTA

'Get or create test plan subject folder

errmsg = "Subject tree error"

Set root = TreeMgr.TreeRoot("Subject")

On Error Resume Next

Set folder = root.FindChildNode(FolderName)

On Error GoTo LinkDefectsToEntitiesErr

If folder Is Nothing Then _

Set folder = root.AddNode(FolderName)

'Create a design test

errmsg = "Design test error"

'Get the test if it exists

' For the code of GetTest, see the Test object example

' "Get a test object with name and path"

Set NewTest = GetTest(TestName, FolderName)

'If it doesn't exist, create it

If NewTest Is Nothing Then

Set NewTest = TestF.AddItem(Null)

NewTest.Name = TestName

NewTest.Type = "MANUAL"

'Put the test in the new subject folder

NewTest.Field("TS_SUBJECT") = folder.NodeID

NewTest.Post

End If

'Get or create a design step from the factory of the new test

errmsg = "Design step error"

Set StepF = NewTest.DesignStepFactory

Dim aFilter As TDFilter

Set aFilter = StepF.Filter

Dim StepName$

StepName = TestName & "Step_1"

aFilter.Filter("DS_STEP_NAME") = StepName

Set lst = StepF.NewList(aFilter.Text)

If lst.Count = 0 Then

Set desStep = StepF.AddItem(Null)

desStep.StepName = StepName

desStep.StepDescription = "Step to be linked to defect."

desStep.StepExpectedResult = "This step expected to be linked."

desStep.Post

Else

Set desStep = lst.Item(1)

End If

Quick Test Professional (QTP) - Quality Center Connection

Quality Center is a comprehensive test management tool which is a web-based repository for all testing assets. As mentioned it is a web-based tool and supports high level communication and association among various stakeholders (Business Analyst, Developers, Testers etc.). It help in driving a more effective and efficient global application-testing process.

QuickTest Professional (QTP) is an automated functional testing tool. It is pivotal in the areas of smoke/sanity testing, regression testing, functional testing and other testing areas.

Automation Tools like QTP, Win Runner and Load Runner can be integrated with Quality Center. You can also create reports and graphs for Analysis and Tracking for Test processes.To ensure comprehensive testing of your application, you typically must create and run many tests. HP QC can help you organize and control the testing process. In this article, you will learn how to integrate QTP with QC following HP best practices. Designing the integration and setting up QC for integration provide keys to success.

Top 5 advantages of integrating QTP with QC:

1. Mapping manual test cases to automation
2. Version tracking of automation suite
3. Scheduling of test suite from QC
4. QTP resource storage
5. One repository of the entire automation reusable framework

Connecting QTP with QC

To work with QC we first need to connect QTP to QC. To connect QTP to QC, Open QTP and go to menu Tools->Quality Center Connection

To access

Use one of the following: ➤ Select File > ALM/QC Connection. ➤ Double-click the ALM/QC icon in the status bar

Functions

➤ Connect. The connection process has two stages. First, you connect QuickTest to a local or remote HP ALM or Quality Center server. This server handles the connections between QuickTest and the HP ALM or Quality Center project. Next, you log in and choose the project you want QuickTest to access. The project stores tests and run session information for the application you are testing. Projects are password protected, so you must provide a user name and a password. ➤ Disconnect. You can disconnect QuickTest from an HP ALM or Quality Center project or from an HP ALM or Quality Center server at any time. If you disconnect QuickTest from an HP ALM or Quality Center server without first disconnecting from a project, the QuickTest connection to that project database is automatically disconnected. If an HP ALM or Quality Center test or shared file (such as a shared object repository or Data Table file) is open when you disconnect from HP ALM or Quality Center, then QuickTest closes it.

Once connected, we can save the script(s) in QC as shown in the Figure

In case there is need to switch from the QC test plan to the file system then we can click on the File System, button as shown in the Figure

Saving script in QC provides a way to have a centralized repository for the scripts

QC Paths

Once a test case is saved to the repository it well then be presented on the QC test plan tab. the root folder of this lab is named "Subject". So any QC path referenced in QTP will start with "[QualityCenter] Subject". Once the tests scripts are moved to the QC repository all the folder paths on QTP's Tools->Options->Folder(Tab) need to be changed to the appropriate QC path for the scripts to work correctly. By default QTP takes the <CurrentTest> location as one of the path to search for various files. Any associated resources i.e. resource libraries, shared objects repositories and data tables stored as an attachment in the Attachment tab of the script inside QC, will be available to the test. These paths are also used to resolve any external reusable action call.

QTP functions which use file path for reading purpose as parameter, can also use QC paths. All of the statements given below are valid in QTP.

'Import the data table from Quality Center

DataTable.Import "[QualityCenter] Subject\Input\TestCase1.xls"

DataTable.ImportSheet "[QualityCenter] Subject\Input\TestCase1.xls", "Global", Global"

'Load the VBS file from Quality Center

ExecuteFile "[QualityCenter] Subject\ScriptConfigurator.vbs"

NOTE: QC path won’t work with functions like DataTable.Export, DataTable.ExportSheet etc. as they are writing files to QC and not reading