數(shù)據(jù)驅(qū)動測試

1、數(shù)據(jù)驅(qū)動測試1. 參數(shù)化測試步驟的數(shù)據(jù)2. 編輯數(shù)據(jù)表格3. 設(shè)置迭代次數(shù)參數(shù)化測試1.數(shù)據(jù)表參數(shù)化2.環(huán)境變量參數(shù)化3.隨機數(shù)參數(shù)化ItemCount=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCountSelectItem=RandomNumber(0,ItemCount)Window("Flight Reservation").Dialog("Flights Table").Wi

2、nList("From").Select SelectItem使用數(shù)據(jù)驅(qū)動器來參數(shù)化測試'獲取操作系統(tǒng)名稱OS=Environment.Value ("OS")'獲取操作系統(tǒng)版本OSVersion=Environment.Value ("OSVersion")'獲取測試腳本名TestName=Environment.Value ("TestName")Reporter.ReportEvent micDone,"Environment","運行測試腳本"

3、&TestName & "的操作系統(tǒng)為:" & OS&"版本為:" & OSVersion'設(shè)置環(huán)境變量MyVariable的值為10Environment.Value("MyVariable")=10MyValue=Environment.Value("MyVariable")MsgBox MyValue'導(dǎo)入外部文件Environment.LoadFromFile ("D:exampleMyVariables.xml")'讀取其

4、中的環(huán)境變量值MyUserNameMyUserName=Environment.Value ("MyUserName")MyPassword=Environment.Value ("MyPassword")'讀取其中的環(huán)境變量值MyVariantMyVariant= Environment.Value ("MyVariant")Reporter.ReportEvent micDone,"讀取MyVariables.xml文件","MyUserName="&MyUserName &

5、amp;",MyPassword="&MyPassword & ",MyVariant="&MyVariantWindow("Flight Reservation").WinButton("FLIGHT").Click'定位到FlightList Table窗口的WinList控件Set FlightsList=Window("Flight Reservation").Dialog("Flights Table").WinList("

6、From")'獲取WinList控件中的所有項,并通過Print方法顯示出來For i=1 to FlightsList.GetItemsCountPrint FlightsList.GetItem(i-1)NextWindow("Flight Reservation").Dialog("Flights Table").WinButton("OK").ClickDim str'定位到FlightList Table窗口的WinList控件Set FlightsList=Window("Flight

7、Reservation").Dialog("Flights Table").WinList("From")'獲取WinList控件中的所有項,并通過msgbox方法顯示出來For i=1 to FlightsList.GetItemsCountstr=str+FlightsList.GetItem(i-1)+vbCRLFNextMsgBox strMsgbox Window("Flight Reservation").WinEdit ("Order No:").GetROProperty (&qu

8、ot;text")Window("Flight Reservation").WinButton("Insert Order").ClickWait 10'獲取自動生成的訂票記錄號Msgbox Window("Flight Reservation").WinEdit ("Order No:").GetROProperty ("text")虛擬對象管理：讓QTP學(xué)會認(rèn)識某些它不認(rèn)識的對象。方法是把這些控件所在的區(qū)域定義為虛擬對象（Virtual Object）.'設(shè)置QTP

9、在判斷一個對象是否存在的最大時間Milliseconds=30000Setting("DefaultTimeout")=Milliseconds'獲取efaultTimeoutDefaultTimeout=Setting("DefaultTimeout")If DefaultTimeout<5000 ThenMsgBox(DefaultTimeout)Milliseconds=50000Setting("DefaultTimeout")=MillisecondsEnd IfSetting對象有一個名為“Item”的屬性，

10、可以把其作為測試腳本的全局變量來使用，獲取和設(shè)置測試腳本的全局信息。With Setting'判斷名為IterNumber的Item是否存在，如果不存在，則添加一個，并且設(shè)置其值為If Not .Exists("IterNumber") Then .Add "IterNumber",1'如果存在，則把其值累加Else .Item("IterNumber")=.Item("IterNumber")+1End IfEnd withMsgbox Setting("IterNumber")利用DotNetFactory對象訪問.NET類庫'通過CreateInstance創(chuàng)建System.Environment的實例Set var_CreateInstance=DotNetFactory.CreateInstance("System.Environment")'訪