代碼增強(qiáng)及調(diào)試方法

1、代碼增強(qiáng)及調(diào)試方法 靳少龍主要內(nèi)容 1.視圖模式 2.參數(shù)化 3.檢查點(diǎn) 4.Action操作1.視圖模式 1.關(guān)鍵字視圖 適合初級用戶使用 2.專家視圖 適合熟悉VBScript用戶使用1.1關(guān)鍵字視圖模式 最大的優(yōu)點(diǎn)就是用戶無需專業(yè)的知識，即使不是自動化測試工程師，可以制定自己需要的業(yè)務(wù)流程，并且可以方便的修改1.2專家視圖模式 它可以直接修改腳本，以增強(qiáng)測試腳本的功能，但它要求自動化測試工程師具有較強(qiáng)的腳本編寫能力2.參數(shù)化 1.參數(shù)化類型 Date Table 數(shù)據(jù)表格 缺點(diǎn)：每次迭代整個腳本全部運(yùn)行，針對某個業(yè)務(wù)不適用 Environment xml 適用多個Action調(diào)用同一個參

2、數(shù)，缺點(diǎn)是使用時每個參數(shù)需要指定 Random Number 隨機(jī)數(shù)2.1DateTable參數(shù)化Demo Dialog(Login).WinEdit(Agent Name:).Set DataTable(UserName, dtGlobalSheet) Dialog(Login).WinEdit(Agent Name:).Type micTab Dialog(Login).WinEdit(Password:).SetSecure DataTable(PassWord, dtGlobalSheet) Dialog(Login).WinButton(OK).Click Window(Flight

3、 Reservation).Close2.1.1參數(shù)化Demo可能遇到的問題 第一次沒問題，第二次出現(xiàn)下面錯誤2.1.2解決方法 原因：系統(tǒng)還沒關(guān)閉程序，腳本已經(jīng)開始執(zhí)行 1. wait(5) 2.systemutil.run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.e) 3.system.CloseProcessByName(flight4a.exe)2.2 XML參數(shù)化Demo Dialog(Login).WinEdit(Agent Name:).Set E

4、nvironment(username) Dialog(Login).WinEdit(Agent Name:).Type micTab Dialog(Login).WinEdit(Password:).SetSecure Environment(password) Dialog(Login).WinEdit(Password:).Type micReturn Window(Flight Reservation).Close2.3隨機(jī)數(shù)DemoDialog(Login).WinEdit(Agent Name:).Set MERCURY“Dialog(Login).WinEdit(Password

5、:).SetSecure “MERCURYDialog(Login).WinButton(OK).ClickWindow(Flight Reservation).ActiveX(MaskEdBox).Type 090912Window(Flight Reservation).WinComboBox(Fly From:).Select FrankfurtWindow(Flight Reservation).WinComboBox(Fly To:).Select LondonWindow(Flight Reservation).WinButton(FLIGHT).ClickWindow(Fligh

6、t Reservation).Dialog(Flights Table).WinList(From).Select 13130 FRA 01:24 PM LON 02:07 PM LH $112.60Window(Flight Reservation).Dialog(Flights Table).WinButton(OK).ClickWindow(Flight Reservation).WinEdit(Name:).Set JacWindow(Flight Reservation).WinButton(Insert Order).ClickWindow(Flight Reservation).

7、CloseData Driver 自動檢測腳本中可能需要的參數(shù)化的選項(xiàng) ToolsData Driver2.2 外部數(shù)據(jù)源參數(shù)化 一般有四種形式 文本文檔 Excel 格式一：導(dǎo)入DataTable 格式二：使用Excel XML 數(shù)據(jù)庫2.2.1文本文檔格式 兩種格式 一： 二：2.2.1格式一Const ForReading = 1 定義一個常量 以只讀模式打開文件，不能對此文件進(jìn)行寫操作filename=C:UsersABCDesktopdata1.txt 文件路徑Set Fso = CreateObject(Scripting.FileSystemObject)Set DataFile

8、= Fso.OpenTextFile(filename,ForReading,False)DataFile.SkipLine 在讀取TextStream 文件時跳過下一行。如果讀的文件沒有打開，則產(chǎn)生一個錯誤。Do while DataFile.AtEndOfLinetrueSystemUtil.Run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe)ReadString = DataFile.ReadLine 從 TextStream 文件中讀取一整行字符，并

9、以字符串返回結(jié)果。DataStr=split(ReadString,) 用于把一個ReadString用逗號分割成字符串?dāng)?shù)組。Dialog(Login).WinEdit(Agent Name:).Set DataStr(0) 訪問字符串?dāng)?shù)組的第一個字符Dialog(Login).WinEdit(Password:).SetSecure DataStr(1)Dialog(Login).WinButton(OK).ClickWindow(Flight Reservation).Closewait(3)loopDataFile.closeSet Fso=Nothing2.2.1格式二ForReadi

10、ng = 1filename=C:UsersABCDesktopdata.txt 文件路徑Set Fso = CreateObject(Scripting.FileSystemObject)Set DataFile= Fso.OpenTextFile(filename,ForReading,False)Dim ArrFileLines(),ii=0Do while DataFile.AtEndOfLine trueReDim Preserve ArrFileLines(i)動態(tài)分配數(shù)組空間ArrFileLines(i) = DataFile.ReadLinei=i+1LoopDataFile.

11、CloseSet Fso=NothingFor i = LBound(ArrFileLines) to UBound(ArrFileLines) Step 2SystemUtil.Run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe)Dialog(Login).WinEdit(Agent Name:).Set ArrFileLines(i) 訪問字符串?dāng)?shù)組的第一個字符Dialog(Login).WinEdit(Password:).SetSecure ArrF

12、ileLines(i+1) Dialog(Login).WinButton(OK).ClickWindow(Flight Reservation).Closewait(3)Next2.2.2Excel格式一獲得數(shù)據(jù)文件路徑，并將數(shù)據(jù)文件導(dǎo)入到DataTable運(yùn)行表中DataStr= C:UsersABCDesktopdata.xlsDataTable.AddSheet(TestData)DataTable.ImportSheet DataStr,Sheet1,TestDatawait 1 For i=1 to DataTable.GetSheet(TestData).GetRowCount

13、systemutil.Run (D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe) DataTable.SetCurrentRow i 把i設(shè)置為當(dāng)前執(zhí)行行 UserName=DataTable.Value(username,TestData) PassWord=DataTable.Value(password,TestData) Dialog(Login).WinEdit(Agent Name:).Set UserName Dialog(Login).WinEd

14、it(Password:).SetSecure PassWord Dialog(Login).WinButton(OK).Click Window(Flight Reservation).Close Next2.2.2Excle格式二DataStr= C:UsersABCDesktopdata1.xlsSet ExlObj=CreateObject(Excel.Application)ExlObj.Visible = false 設(shè)置為true的情況，文檔會打開ExlObj.DisplayAlerts = falseSet book=ExlObj.Workbooks.Open(DataStr)

15、Set sheet=book.Worksheets(Sheet1)For i=2 to sheet.usedrange.rows.countsystemutil.Run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe)UserName=ExlObj.WorkSheets(Sheet1).Cells(i,1) 或者UserName=sheet.Cells(i,1)PassWord=ExlObj.WorkSheets(Sheet1).Cells(i,2) 或者Pas

16、sWord=sheet.Cells(i,2)Dialog(Login).WinEdit(Agent Name:).Set UserNameDialog(Login).WinEdit(Password:).SetSecure PassWordDialog(Login).WinButton(OK).ClickWindow(Flight Reservation).CloseNextExlObj.QuitSet ExlObj = nothing2.2.3XMLDim xmlDoc As DOMDocument需要引用xml對象set xmlDoc=CreateObject(microsoft.xmld

17、om)xmlDoc.load(C:UsersABCDesktopdata.xml)Set root=xmlDoc.documentElementFor i = 0 To root.childNodes.Length-1 systemutil.Run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe) Set TestCases = root.childNodes.Item(i) For j = 0 To TestCases.childNodes.Length-1

18、Set TestCase = TestCases.childNodes.Item(j) If cstr(TestCase.nodeName)=UserName Then Dialog(Login).WinEdit(Agent Name:).Set TestCase.text end if If cstr(TestCase.nodeName)=PassWord Then Dialog(Login).WinEdit(Password:).SetSecure TestCase.text End If Next wait 2Dialog(Login).WinButton(OK).Click Windo

19、w(Flight Reservation).Close NextSet root=nothingSet xml=nothing2.2.4數(shù)據(jù)庫strDB=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:data.mdb;Persist Security Info=FalsestrTableName=dataSet Conn=createobject(adodb.connection)Set Rst=createobject(adodb.recordset)Conn.open strDBRst.open select * from +strTable

20、Name,Conn,2,2Dim strTest(1)Rst.MoveFirstDo while not Rst.eof systemutil.Run(D:Program Files (x86)Mercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe) strTest(0)=trim(cstr(Rst.fields(1) strTest(1)=trim(cstr(Rst.fields(2) Dialog(Login).WinEdit(Agent Name:).Set strTest(0) Dialog(Login).WinEdit(Password:).SetSecure strTest(1)