QTP 스 크 립 트 언어 에 정통 할 때 까지 쓰기 (1)

1753 단어 테스트각본qtp
비행기 예매 로그 인 시스템 flight
1. 사용자 로그 인 테스트 사례 를 작성 합 니 다.
2. 직접 스 크 립 트 작성
'******************
'SystemUtil.Run PathFinder.Locate("..\samples\flight\app\flight4a.exe"),"",PathFinder.Locate("..\samples\flight\app"),"open"
Systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
'   Exel  , Exel  sheet      sheet 
'DataTable.imports PathFinder.Locate("Login.xls"),"Login_Sheet","LoginAction"
'DataTable.ImportSheet "C:\QTPWorking\  Action\Login.xls",1 ,"LoginAction"
 Dim i,RowCount
i=0
RowCount=DataTable.GetSheet("LoginAction").GetRowCount 
'  LoginAction    
Do While(i<RowCount)
i=i+1
DataTable.SetCurrentRow(i) 
'   i       
wait(3)
Dialog("Login").WinEdit("Agent Name:").SetDataTable("username",dtLocalSheet)Dialog("Login").WinEdit("Password:").SetDataTable("password",dtLocalSheet)
Dialog("Login").WinButton("OK").Click
'****************************'          '************************
If Dialog("Login").Dialog("Flight Reservations").Exist(5) 
Then
 Dim err_message
err_message=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")
Reporter.ReportEvent micFail, "    ","     :"&err_message
Dialog("Login").Dialog("Flight Reservations").WinButton("  ").Click
'Dialog("Login").Winbutton("Cancel").ClickElse 
Reporter.ReportEvent micPass,"    ","    "Window("Flight Reservation").Close
End IfLoop

좋은 웹페이지 즐겨찾기