QTP Test


Types of Statements in QTP Test

We use different types of statements in QTP Test or Test script

i) Declarations

a) Declaring Variables

Dim strCity, intNum, objExcel, myDate

strCity="Hyderabad"
intNum=100
myDate=#10/10/2010#
Set objExcel=CreateObject("Excel.Application")

b) Declaring Constants

Const City="Hyderabad"
Const Login="text:=Login", Agent="window id:=2001", Password="attached text:=Password:"

ii) Comments

Ex1: Using Apostrophe (‘) symbol before the Statement

'Creating an Automation Object in Database Connection Class, that can be used to connect to Databases (any Daatabase)

Set objConnection=CreateObject("Adodb.Connection")


Ex2: Using Rem Command followed by space
Rem Creating an Automation Object in FileSystemObject Class, that can be used to perform Operations on Computer File system
Rem Using this Automation Object we can work with Folders and Files

Set objFSO=CreateObject("Scripting.FileSystemObject")


iii) Utility Statements

Examples:

a) Launching Windows based applications
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Or
InvokeApplication "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

b) Launching Web based applications
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","www.gcreddy.com"

c) Closing all decent process
SystemUtil.CloseDescendentProcesses

d) Defining Test Result

Reporter.ReportEvent micPass,"Result","Test Passed"

Reporter.ReportEvent micFail,"Result","Test Failed"

e) Using environment Variables
Environment.Value("ProductDir")

f) DataTable Operations
'Adding a Sheet to Run-Time DataTable
DataTable.AddSheet "Gcreddy"


iv) Object Calls

Examples:

a) Standard Windows Environment
Dialog("Login").WinButton("Cancel").Click

b) Visual Basic Environment
VbWindow("CALCULATOR").VbButton("CLEAR").Click

c) Web Environment
Browser("Google").Page("Google").Link("Gmail").Click

v) Flow Control Statements

a) Using If statement

If Total=Tickets*Price  Then
          Reporter.ReportEvent micPass,"Res","Total is Correct"
          Else
   Reporter.ReportEvent micFail,"Res","Total is InCorrect"
End If

b) Using Select case Statement

Select Case Keyword
                   Case "ln"
                             Result=Login("gcreddy@yahoo.com","abcd")
          DataTable(7,"TestStep")=Result

                             Case "ca"
                             Close_App()

                             Case "rn"
                             Result=Register("gcreddy2@gmail.com")
          DataTable(7,"TestStep")=Result

                     Case "al"
                             Result=App_Launch()
          DataTable(7,"TestStep")=Result
                   End Select

c) Using For…Next Loop

For i=1 to MRowCount Step 1
          DataTable.SetCurrentRow(i)
          ModuleExe=DataTable(3,"Module")
         
          If UCase(ModuleExe)="Y"  Then
                   ModuleID=DataTable(1,"Module")
          Next

d) Using While…Wend Statement

While objRecordset2.EOF=False
Wscript.Echo objRecordset2.Fields.Item("DriveName"), _
objRecordset2.Fields.Item("DriveDescription")
objRecordSet2.MoveNext
Wend

e) Using Do While …Loop

Do While objRs.EOF=False
a=objRs.Fields ("Agent")
b=objRs.Fields ("Pwd")
myFile.Writeline a &","& b
r=r+1
objRs.MoveNext
Loop

f) Using Do Until …Loop

Do Until objRs.EOF
a=objRs.Fields ("gcreddy")
b=objRs.Fields ("qtp")
myFile.Writeline a &","& b
r=r+1
objRs.MoveNext
Loop

g) Using For Each …Next

For Each element In x
msgbox element
Next

vi) Function/Action Calls


a) Function calls

Dim myDate
myDate=Date
Msgbox myDate
Msgbox NOW  ‘Built-in Function

Call Login (“gcreddy”,”mercury”) ‘User defined Function

b) Action Calls

RunAction "Registration [Orders]", oneIteration

vii) Check point statements

Window("Flight Reservation").WinEdit("Name:").Check CheckPoint("Name:")

viii) Output value statements
Window("Flight Reservation").WinButton("Update Order").Output CheckPoint("Update Order")

ix) Synchronization point statements

Window("Flight Reservation").WinButton("Delete Order").WaitProperty "enabled", True, 30000

x) VB Script statements

Examples:

a) Synchronization using Wait Statement

Wait 10

b) Code Optimization Using With and End With Statements

With Dialog("Login")
          .Activate
          .WinEdit("Agent Name:").Set "vdfdg"
          .WinEdit("Password:").SetSecure "4d52b150608f41854dfd1714582004f58c475d84"
          .WinButton("OK").Click
End With

c) Defining Private Functions using Private statement

Private Function Login(UserId, Password)
--------
Statements
----------
----------
End Function

d) Storing Object Reference using Set Statement

Set myPage=Browser("QuickTest Professional").Page("QuickTest Professional")

e) Declaring Variables using Public statement

Public strName, intPhNumber

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


0 comments:

Post a Comment