QTP - AOM - Running Batch Tests

'Automation Object Model

'******************************************************************** 

'******************************************************************** 

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP and to working with QTP Batch Tests

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To number of tests (one by one )

' Author : GAReddy @ OneTestingCenter @ QTP

'****************************************************************** 

'****************************************************************** 

Set oQTP = CreateObject("QuickTest.Application")

oQTP.Launch

oQTP.Visible = True

oQTP.WindowState = "Maximized" ' Maximize the QuickTest window

oQTP.ActivateView "ExpertView" ' Display the Expert View

'oQTP.open "D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo", False

'Opens the test in editable mode

Dim QTP_Tests(4)

QTP_Tests(1)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_PageInfo"

QTP_Tests(2)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_WebEditInfo"

QTP_Tests(3)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_RadioGroupInfo"

QTP_Tests(4)="D:\OneTestingCenter\QTP\GAReddy@DemoTests\QTP_ImagesInfo"

Set QTPResultsOptions=CreateObject("QuickTest.RunResultsOptions")

For i=1 To UBound(QTP_Tests)

oQTP.Open QTP_Tests(i), True

QTPResultsOptions.ResultsLocation=QTP_Tests(i)& "\Res1"

oQTP.Test.Run QTPResultsOptions, True

oQTP.Test.Close

Next

oQTP.Quit

Set QTPResultsOptions=Nothing

'Set QTP_Tests=Nothing

Set oQTP=Nothing

'***************************************************************

'*************************************************************** 

Read More...

QTP - AOM - Working with Actions

'Automation Object Model

'*********************************************************** 

'**********************************************************

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP and to working actions

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Open a Driver Script (which could call other tests)

'                                 To get all the action names in test

' Author : GAReddy @ OneTestingCenter @ QTP

'************************************************************** 

'**************************************************************

Dim oQTP   

' Open QuickTest 

Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 

oQTP.Launch ' Launch QuickTest 

oQTP.Visible = True ' Set QuickTest to be visible 

 

oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False, False ' Open a test 

 

nActionsCount=oQTP.Test.Actions.Count   

For i=1 to nActionsCount   

 ' Get the first action in the test by index (start from 1) 

 MsgBox oQTP.Test.Actions(i).Name   

Next 

 

'Close QuickTest 

oQTP.Quit ' Quit QuickTest   

Set oQTP = Nothing ' Release the Application object 

 

'***************************************************************** 

'**************************************************************** 

Read More...

QTP - AOM - Working with Environment Variables

'Automation Object Model

'****************************************************************** 

'******************************************************************

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP and to work with Environment Variables

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Open a Driver Script (which could call other tests)

'                                 To work with Environment Variables in QTP

' Author : GAReddy @ OneTestingCenter @QTP

'****************************************************************** 

'***************************************************************** 

Dim oQTP   

Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 

oQTP.Launch ' Start QuickTest 

oQTP.Visible = True ' Make the QuickTest application visible 

' Open the test 

oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False

' Open a test named Driver Script

 

' Set some environment variables 

oQTP.Test.Environment.Value("AppName") = "AnyWebApp" 

oQTP.Test.Environment.Value("AppVersion") = "3.0" 

oQTP.Test.Environment.Value("TestSuite") = "SmokeTest"

 

oQTP.Test.Save ' Save the test   

oQTP.Quit ' Exit QuickTest 

Set oQTP = Nothing ' Release the Application object 

'*********************************************************** 

'***********************************************************

Read More...

QTP - AOM - Add Shared Object Repository to QTP

'Automation Object Model

'************************************************************************

'************************************************************************

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  QTP - AOM Script to Open QTP and to Add Shared / Global Object Repository

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Open a Driver Script (which could call other tests)

'             To Add shared / Global Object Repository to QTP

'             To Save the test

' Author : GAReddy @ OneTestingCenter @ QTP

'************************************************************************ 

'************************************************************************ 

Dim oQTP 

Dim QTPRepositories 

 

' Open QuickTest 

Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 

oQTP.Launch ' Launch QuickTest 

oQTP.Visible = True ' Set QuickTest to be visible 

 

' Open a test and get the "Login" action's object repositories collection 

oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False, False ' Open a test

ActionName=Environment.Value("ActionName")

Set QTPRepositories = oQTP.Test.Actions(ActionName).ObjectRepositories

' Get the object repositories collection object of the "Login" action 

 

' Add MainApp.tsr if it's not already in the collection 

If QTPRepositories.Find("D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\ObjectRepository\GlobalOR.tsr") = -1 Then

       '      If the repository cannot be found in the collection 

    QTPRepositories.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\ObjectRepository\GlobalOR.tsr", 1

       ' Add the repository to the collection 

End If 

 

'Save the test and close QuickTest 

oQTP.Test.Save ' Save the test 

oQTP.Quit ' Quit QuickTest 

 

Set QTPRepositories = Nothing ' Release the action's shared repositories collection 

Set oQTP = Nothing ' Release the Application object 

'************************************************************

'*************************************************************

Read More...

QTP - AOM - Add Functional Libraries - Run Tests - Save Results

'Automation Object Model

'************************************************************************

'************************************************************************ 

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP , To Open Driver Script, To Add the functional LIBs to QTP  and to Run the Test

 ' and store the results on to specified results directory (using the Run options)

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Open a Driver Script (which could call other tests)

'                                 To Add the Functional Library files to QTP

'                                 To Run the tests

'                                 To Save the test results

' Author : GAReddy @ OneTestingCenter @ QTP

'********************************************************************** 

'******************************************************************* 

Dim oQTP 

Dim QTPLibraries   

' Open QuickTest 

Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 

oQTP.Launch ' Launch QuickTest 

oQTP.Visible = True ' Set QuickTest to be visible 

 

' Open a test and get its libraries collection 

oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", False, False ' Open a test 

Set QTPLibraries = oQTP.Test.Settings.Resources.Libraries ' Get the libraries collection object 

 

' To check if the LIBs are added to QTP..If not ...add them

       'If QTPLibraries.Find("D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\TO_WebEdit.vbs") = -1 Then

       ' If the library cannot be found in the collection 

       '    QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\TO_WebEdit.vbs", 1

       ' Add the library to the collection 

       'End If 

' To add functional LIBs to QTP

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\TO_WebEdit.vbs", 1

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\TO_WebButtonvbs", 1

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\TO_Link.vbs", 1

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\Image.vbs", 1

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\Generic.vbs", 1

QTPLibraries.Add "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\LIBs\Driver.vbs", 1

Set QTPResultsOptions = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object 

QTPResultsOptions.ResultsLocation = "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestResults\Res1" ' Set the results location 

 

QTPTest.Run QTPResultsOptions ' Run the test 

'Save the test and close QuickTest 

oQTP.Test.Save ' Save the test  

Set QTPLibraries = Nothing ' Release the test's libraries collection 

oQTP.Quit ' Quit QuickTest 

Set oQTP = Nothing ' Release the Application object 

'************************************************************************ 

'************************************************************************

Read More...

QTP - AOM - Open Driver Sctipt - Run Tests - Save Results

'Automation Object Model

'*******************************************************************

'******************************************************************* 

' GAReddy @ OneTestingCenter @ QTP - AOM (Automation Object Model)

' What ==>  This is a QTP - AOM Script to Open QTP , To Open Driver Script (To Open Existing Script ) and to Run the Test

 ' and store the results on to specified results directory (using the Run options)

' How ==> Need QuickTest.Application Automation Object to do so

' Why ==> To Open a Driver Script (which could call other tests) and to Run Automatically

' Author : GAReddy @ OneTestingCenter @ QTP

'******************************************************************

'****************************************************************** 

Dim oQTP 

Dim QTPTest  

Dim QTPResultsOptions 

 

Set oQTP = CreateObject("QuickTest.Application") ' Create the Application object 

oQTP.Launch ' Start QuickTest 

oQTP.Visible = True ' Make the QuickTest application visible 

 

' Set QuickTest run options 

oQTP.Options.Run.ImageCaptureForTestResults = "OnError" 

oQTP.Options.Run.RunMode = "Fast" 

oQTP.Options.Run.ViewResults = False 

 

oQTP.Open "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestScripts\DriverScript", True

' Open the test in read-only mode 

 

' set run settings for the test 

Set QTPTest = oQTP.Test 

 

QTPTest.Settings.Run.OnError = "NextStep"

' Instruct QuickTest to perform next step when error occurs 

 

Set QTPResultsOptions = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object 

QTPResultsOptions.ResultsLocation = "D:\GAReddy\OneTestingCenter\QTP\AprilBatch\KeywordDrivenFramework\TestResults\Res1"

' Set the results location 

 

QTPTest.Run QTPResultsOptions ' Run the test 

 

MsgBox QTPTest.LastRunResults.Status ' Check the results of the test run 

QTPTest.Close ' Close the test 

 

Set QTPResultsOptions = Nothing ' Release the Run Results Options object 

Set QTPTest = Nothing ' Release the Test object 

Set oQTP = Nothing ' Release the Application object  

'*********************************************************************

'*********************************************************************

Read More...