Scribd
Upload
57 views

Manipulate Object Repositories Usingthe Object Repository Automation Objectsand Methods

The document describes functions that retrieve objects and properties from an object repository, look for specific test objects, copy a test object to another repository, enumerate child properties and objects, rename all image objects, and remove all link objects from a repository.

Uploaded by

shiv.cse
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
57 views

Manipulate Object Repositories Usingthe Object Repository Automation Objectsand Methods

The document describes functions that retrieve objects and properties from an object repository, look for specific test objects, copy a test object to another repository, enumerate child properties and objects, rename all image objects, and remove all link objects from a repository.

Uploaded by

shiv.cse
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 2

'The following example retrieves an object repository's objects and properties,

'looks for specific test objects using several methods, and copies a test object
'to another object repository.

Dim ImageObj, PageObj, RepositoryFrom, RepositoryTo

Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")


Set RepositoryTo = CreateObject("Mercury.ObjectRepositoryUtil")

RepositoryFrom.Load "C:\QuickTest\Tests\Flights.tsr"
RepositoryTo.Load "E:\Temp\Tests\Default.tsr"
Function EnumerateAllChildProperties(Root)
'The following function recursively enumerates all the test objects directly under
'a specified parent object. For each test object, a message box opens containing the
'test object's name, properties, and property values.
Dim TOCollection, TestObject, PropertiesCollection, Property, Msg

Set TOCollection = RepositoryFrom.GetChildren(Root)

For i = 0 To TOCollection.Count - 1
Set TestObject = TOCollection.Item(i)
Msg = RepositoryFrom.GetLogicalName(TestObject) & vbNewLine
Set PropertiesCollection = TestObject.GetTOProperties()

For n = 0 To PropertiesCollection.Count - 1
Set Property = PropertiesCollection.Item(n)
Msg = Msg & Property.Name & "-" & Property.Value & vbNewLine
Next
MsgBox Msg

EnumerateAllChildProperties TestObject
Next

End Function

Function EnumerateAllObjectsProperties(Root)
'The following function enumerates all the test objects under a specified object.
'For each test object, a message box opens containing the test object's name,
'properties, and property values.
Dim TOCollection, TestObject, PropertiesCollection, Property, Msg

Set TOCollection = RepositoryFrom.GetAllObjects(Root)

For i = 0 To TOCollection.Count - 1
Set TestObject = TOCollection.Item(i)
Msg = RepositoryFrom.GetLogicalName(TestObject) & vbNewLine

Set PropertiesCollection = TestObject.GetTOProperties()


For n = 0 To PropertiesCollection.Count - 1
Set Property = PropertiesCollection.Item(n)
Msg = Property.Name & "-" & Property.Value & vbNewLine
Next

MsgBox Msg
Next

End Function

Function RenameAllImages(Root)
'The following function sets a new name for all image test objects under a specified object.
Dim TOCollection, TestObject, PropertiesCollection, Property

Set TOCollection = RepositoryTo.GetAllObjectsByClass("Image")

For i = 0 To TOCollection.Count - 1
Set TestObject = TOCollection.Item(i)
RepositoryTo.RenameObject (TestObject, "Image " & i)
RepositoryTo.UpdateObject TestObject
Next

End Function

Function RemoveAllLinks(Root)
'The following function recursively enumerates all the test objects under a specified object.
'It looks for all test objects of class Link and removes them from their parent objects.
Dim TOCollection, TestObject, PropertiesCollection, Property

Set TOCollection = RepositoryFrom.GetChildren(Root)

For i = 0 To TOCollection.Count - 1
Set TestObject = TOCollection.Item(i)
TOClass = TestObject.GetTOProperty("micclass")

If TOClass = "Link" Then


RepositoryFrom.RemoveObject Root, TestObject
End If

EnumerateAllChildProperties TestObject
Next

End Function

You might also like