軟件測試工具LoadRunner中運行QTP腳本
第一：為什么用LoadRunner做功能測試自動化？
1、lr是模擬瀏覽器給服務器直接發送請求，而QTP是模擬鼠標鍵盤的操作。
故：LR腳本可以做驗證流程的功能自動化，但是驗證的大多是后臺數據處理流程的正確性，QTP可以驗證流程也可以驗證UI。
2、LR錄制腳本是類C語言，QTP是vbscript。
故：你若對c了如指掌自然也可用lr加入復雜的檢查點完成功能自動化，QTP由于使用vbscript是windows嫡系子孫，調用一些wshell dom等可以很好的操作UI。
3、最后一條：LR腳本比QTP腳本容易維護。
4、qtp是基于對象庫的，而LR是基于協議的，前者是屬于黑盒測試范疇，前臺進行處理，而后者是基于協議，是后臺進行處理的。如果非得用LR也未嘗不可，只是舍近求遠，畢竟QTP是專業的自動化工具。另外做功能測試不可能不關注UI界面。
5、QTP的檢查點類型比較多，如下：
|
QuickTest Professional提供了下列類型的檢查點： | ||
|
檢查點類型 |
描述 |
用法示例 |
| 標準檢查點 | 檢查對象的屬性值 | 檢查是否選中某單選按鈕 |
| 圖像檢查點 | 檢查圖像的屬性值 | 檢查圖像源文件是否正確 |
| 表檢查點 | 檢查表中的信息 | 檢查表單元格中的值是否正確 |
| 頁面檢查點 | 檢查網頁的特性 | 檢查加載網頁所需的時間，或者檢查網頁是否包含中斷鏈接 |
| 文本/ 文本區域檢查點 | 檢查文本字符串是否顯示在網頁或應用程序窗口中的適當位置 | 檢查預期的文本字符串是否顯示在網頁或對話框上的預期位置 |
| 位圖檢查點 | 將網頁或應用程序的某個區域捕獲為位圖后對其進行檢查 | 檢查網頁或網頁的任何部分是否能按預期顯示 |
| 數據庫檢查點 | 檢查應用程序或網站所訪問的數據庫內容 | 檢查數據庫查詢中的值是否正確 |
| 可訪問性檢查點 | 對網站區域進行識別，以檢查是否符合508部分 | 檢查網頁上的圖像是否包含ALT屬性（該屬性是W3C Web內容可訪問性規則所要求的） |
| XML檢查點 | 檢查XML文檔的數據內容 | 注意：XML文件檢查點用于檢查特定的XML文件；XML應用程序檢查點用于檢查網頁中的XML文檔 |
第二：LR中運行QTP腳本
1、運行準備：
1）勾選QTP的Tools--Options--Run的"Alow other Mercury products to run tests and components"
2）錄制需要在lr中運行的QTP腳本，并且在QTP腳本中設置事務，Services.StartTransaction "start"與Services.EndTransaction "start"
2、運行QTP腳本
在LR中運行時選擇QTP腳本，為QTP腳本存放目錄下文件擴展名為.usr的文件。
注：LR中運行QTP腳本時，只能有一個Vuser,否則將報錯：
The load generator is currently running the maximum number of Vusers of this type
3、可能報錯：
1）如果LR運行時報"LR沒有相關的license"錯，可以在LR里增加一個1000個的global license，注冊號碼為：AEACFSJI-YASEKJJKEAHJD-BCLBR
2）運行測試時，需要先將QTP關閉；
3）LR執行大于1個以上的虛擬用戶時會提示：The load generator is currently running the maximum number of Vusers of this type，
所以，QTP腳本在LR中運行一臺計算機只能運行一個GUI Vuser，如果要同時運行多個用戶，可以QTP腳本里設置循環，循環可通過QTP的datatable設置需要運行的用戶，或是在QTP里通過FOR，NEXT語句來設置次數�；蚴窃赾ontroller里同時開啟多個相同的腳本，然后分散在不同的電腦上運行，注意：各終端一定要開啟LR的LR Agent Process及QTP的TOOS-Remote Agent代理服務。
注1：設計供LR運行的測試用例應遵守以下規則：
LR不能運行嵌套操循環；
請勿包括對外部操作或其他外部資源（如外部數據表文件，環境變量文件，共享對象庫等）的引用。
注2：設計供業務流程監視器使用的測試時，應遵守以下規則：
對應的StartTransaction和EndTransaction語句必然包含在同一個操作內。
業務流程監視器不使用QTP的setting-run中的循環設置，而是使用數據表中文件中的行數。
注3：在LR的controll中，Run-time Settings中只有常規類別與子類別有效，回放選項不起任何作用。
如以下腳本：
Services.StartTransaction "start"
For i=1 To DataTable.GetSheet(dtLocalSheet).GetRowCount
Window("Tencent Traveler").WinEdit("Edit").SetSelection 0,19
Window("Tencent Traveler").WinEdit("Edit").Set "www.diy.com"
Window("Tencent Traveler").WinEdit("Edit").Type micReturn
Window("Window").Page("產品介紹-建站易").Link("模板倉庫").Click
Window("Window").Page("模板倉庫-建站易").Link("在線幫助").Click
Window("Window").Page("在線幫助-建站易").Link("關于我們").Click
datatable.GetSheet("Action1").setnextrow
Next
Services.EndTransaction "start"
文章來源于領測軟件測試網 http://www.kjueaiud.com/
