数据驱动测试

1、数据驱动测试1. 参数化测试步骤的数据2. 编辑数据表格3. 设置迭代次数参数化测试1.数据表参数化2.环境变量参数化3.随机数参数化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使用数据驱动器来参数化测试'获取操作系统名称OS=Environment.Value ("OS")'获取操作系统版本OSVersion=Environment.Value ("OSVersion")'获取测试脚本名TestName=Environment.Value ("TestName")Reporter.ReportEvent micDone,"Environment","运行测试脚本"

3、&TestName & "的操作系统为:" & OS&"版本为:" & OSVersion'设置环境变量MyVariable的值为10Environment.Value("MyVariable")=10MyValue=Environment.Value("MyVariable")MsgBox MyValue'导入外部文件Environment.LoadFromFile ("D:exampleMyVariables.xml")'读取其

4、中的环境变量值MyUserNameMyUserName=Environment.Value ("MyUserName")MyPassword=Environment.Value ("MyPassword")'读取其中的环境变量值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学会认识某些它不认识的对象。方法是把这些控件所在的区域定义为虚拟对象（Virtual Object）.'设置QTP

9、在判断一个对象是否存在的最大时间Milliseconds=30000Setting("DefaultTimeout")=Milliseconds'获取efaultTimeoutDefaultTimeout=Setting("DefaultTimeout")If DefaultTimeout<5000 ThenMsgBox(DefaultTimeout)Milliseconds=50000Setting("DefaultTimeout")=MillisecondsEnd IfSetting对象有一个名为“Item”的属性，

10、可以把其作为测试脚本的全局变量来使用，获取和设置测试脚本的全局信息。With Setting'判断名为IterNumber的Item是否存在，如果不存在，则添加一个，并且设置其值为If Not .Exists("IterNumber") Then .Add "IterNumber",1'如果存在，则把其值累加Else .Item("IterNumber")=.Item("IterNumber")+1End IfEnd withMsgbox Setting("IterNumber")利用DotNetFactory对象访问.NET类库'通过CreateInstance创建System.Environment的实例Set var_CreateInstance=DotNetFactory.CreateInstance("System.Environment")'访