QCUtil Object

Description

The object used to access the ALM Open Test Architecture (OTA) interface. You can use the properties associated with the QCUtil object to return ALM OTA objects. You can use the returned object to perform any OTA property or method supported for that object.

For details on the objects, properties, and methods supported for the returned objects exposed by the QCUtil object, see the ALM Open Test Architecture API Reference.

Properties

Run	Returns the ALM OTA Run object, which represents the current run.
CurrentTest	Returns the ALM OTA Test object, which represents a planning test.
CurrentTestSet	Returns the ALM OTA TestSet object, which represents a group of tests.
CurrentTestSetTest	Returns the ALM OTA TSTest object, which represents an execution instance.
IsConnected	Indicates whether UFT One is currently connected to an ALM project.
QCConnection	Returns the ALM OTA QCConnection object, which represents the current ALM session and provides access to the ALM object model.

Back to top

Run Property

Description

Returns the ALM OTA Run object, which represents the current run. For more details, see the ALM Open Test Architecture API Reference.

Syntax

QCUtil.CurrentRun

Return Value

An ALM OTA Run object.

Example

This example returns the current test run results and reports the ALM run name to the UFT One run results.

dim CurrentRun 
set CurrentRun = QCUtil.CurrentRun 
Reporter.ReportEvent 2,"Current Run", CurrentRun.Name 

Back to top

CurrentTest Property

Description

Returns the ALM OTA Test object, which represents a planning test. For more details, see the ALM Open Test Architecture API Reference.

Syntax

QCUtil.CurrentTest

Return Value

An ALM OTA Test object.

Example

This example returns the planning test and reports its name to the run results.

dim CurrentTest 
set CurrentTest = QCUtil.CurrentTest 
Reporter.ReportEvent 2,"Current Test", CurrentTest.Name 

Back to top

CurrentTestSet Property

Description

Returns the ALM OTA TestSet object, which represents a group of tests. For more details, see the ALM Open Test Architecture API Reference.

Syntax

QCUtil.CurrentTestSet

Return Value

An ALM OTA TestSet object.

Example

This example returns the test set of the current test run and reports its name to the run results.

dim CurrentTSTest 
set CurrentTSTest = QCUtil.CurrentTestSet 
Reporter.ReportEvent 2,"Current TestSet", CurrentTSTest.Name 

Back to top

CurrentTestSetTest Property

Description

Returns the ALM OTA TSTest object, which represents an execution instance. For more details, see the ALM Open Test Architecture API Reference.

Syntax

QCUtil.CurrentTestSetTest

Return Value

An ALM OTA TSTest object.

Example

This example returns the execution test and reports its name to the run results.

Dim CurrentTSTestSet  
set CurrentTSTestSet = QCUtil.CurrentTestSetTest 
Reporter.ReportEvent 2,"Current TestSet Test", CurrentTSTestSet.Name 

Back to top

IsConnected Property

Description

Indicates whether UFT One is currently connected to an ALM project.

Syntax

QCUtil.IsConnected

Return Value

Boolean

Example

This example checks whether UFT One is currently connected to an ALM project. If it is, then it reports information about the current server, project, and domain name to the run results. Otherwise it reports a message that UFT One is not connected to ALM.

if QCUtil.IsConnected then 
    Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.QCConnection.ServerName + chr (13) +"Project: " + QCUtil.QCConnection.ProjectName + chr (13) + "Domain: " + QCUtil.QCConnection.DomainName 
else 
 Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" 
end if 

Back to top

QCConnection Property

Description

Returns the ALM OTA QCConnection object, which represents the current ALM session and provides access to the ALM object model.

For more details, see the ALM Open Test Architecture API Reference.

Syntax

QCUtil.QCConnection

Return Value

An ALM OTA QCConnection object.

Example

This example reports a defect to the ALM database and enters values for the Status, Summary and Detected By fields.

Dim QCConnection 
Set QCConnection = QCUtil.QCConnection 

'Get the IBugFactory 
Set BugFactory = QCConnection.BugFactory 

'Add a new, empty defect  
Set Bug = BugFactory.AddItem (Nothing) 

'Enter values for required fields 
Bug.Status = "New" 
Bug.Summary = "New defect" 
Bug.DetectedBy = "admin" ' user that must exist in the database's user list 

'Post the bug to the database ( commit ) 
Bug.Post 

Back to top

See also:

• Crypt Object
• DataTable Object
• Description Object
• DeviceReplay Object
• DotNetFactory Object
• DTParameter Object
• DTSheet Object
• Environment Object
• Extern Object
• Parameter Object
• JSON Object
• JsonUtil Object
• MercuryTimers Object (Collection)
• MercuryTimer Object
• NV Object
• OptionalStep Object
• ParallelUtil Object
• LocalParameter Object
• PasswordUtil Object
• PathFinder Object
• PDFUtil Object
• Properties Object (Collection)
• QCUtil Object
• RandomNumber Object
• Recovery Object
• Remote Connection Object
• Reporter Object
• RepositoriesCollection Object
• Repository Object
• Services Object
• Setting Object
• SystemMonitor Object
• TestArgs Object
• TextUtil Object
• UIAutomation Object
• VisualRelation Object
• VisualRelations Object
• VisualRelationsCollection Object
• WebUtil Object
• XMLUtil Object