QTP 스 크 립 트 언어 에 정통 할 때 까지 쓰기 (1)
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
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
작은 재료 : 결함 혼입, 테스트 레벨, 공정 책임결함은 후공정에서 적출할수록 비용이 부풀기 때문에 조기에 적출하는 것이 이상적입니다. 그럼에도 불구하고 결함의 종류에 따라 조기에 발견되는 것이나 후공정에서 처음으로 나타나게 되는 것이 있습니다. 예를 들어 컴파일러...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.