數(shù)據(jù)驅(qū)動(dòng)測(cè)試

1、數(shù)據(jù)驅(qū)動(dòng)測(cè)試1. 參數(shù)化測(cè)試步驟的數(shù)據(jù)2. 編輯數(shù)據(jù)表格3. 設(shè)置迭代次數(shù)參數(shù)化測(cè)試1.數(shù)據(jù)表參數(shù)化2.環(huán)境變量參數(shù)化3.隨機(jī)數(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ū)動(dòng)器來參數(shù)化測(cè)試'獲取操作系統(tǒng)名稱OS=Environment.Value ("OS")'獲取操作系統(tǒng)版本OSVersion=Environment.Value ("OSVersion")'獲取測(cè)試腳本名TestName=Environment.Value ("TestName")Reporter.ReportEvent micDone,"Environment","運(yùn)行測(cè)試腳本"

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控件中的所有項(xiàng),并通過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控件中的所有項(xiàng),并通過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'獲取自動(dòng)生成的訂票記錄號(hào)Msgbox Window("Flight Reservation").WinEdit ("Order No:").GetROProperty ("text")虛擬對(duì)象管理：讓QTP學(xué)會(huì)認(rèn)識(shí)某些它不認(rèn)識(shí)的對(duì)象。方法是把這些控件所在的區(qū)域定義為虛擬對(duì)象（Virtual Object）.'設(shè)置QTP

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

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