軟件測試工具QTP腳本例子匯總

 軟件測試工具QTP腳本例子匯總

例一:

        以下語句指示 QuickTest 選中 Itinerary 網頁上的所有復選框：

        Set MyDescrīption = Descrīption.Create()

        MyDescrīption("html tag").Value = "INPUT"

        MyDescrīption("type").Value = "checkbox"

        Set Checkboxes =

        Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)

        NoOfChildObjs = Checkboxes.Count

        For Counter=0 to NoOfChildObjs-1

        Checkboxes(Counter).Set "ON"

        Next

        例二:(來自51testing)

        目標如下：

        1.

        [url=javascript:;][u][b]腳本[/b][/u][/url]

        需要處理成功和失敗的用戶的登陸

        2.

        數據驅動

        設計開發腳本如下：

        第一步錄制腳本如下

        Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統

        4.0").WebEdit("txtLoginName").Set "呂巍"

        Browser("智能變電巡檢儀系統

        4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""

        Browser("智能變電巡檢儀系統

        4.0").Page("Page").Syn

        Browser("智能變電巡檢儀系統 4.0").Close

        以上為錄制的正確的用戶名,下邊錄制錯誤的用戶名

        Browser("智能變電巡檢儀系統

        4.0").Page("智能變電巡檢儀系統 4.0").WebEdit("txtLoginName").Set "xx"

        Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""

        出現錯誤提示“該用戶不存在”

        第二步 增強腳本

        現在需要設計的是一套腳本驅動所有的測試數據，這樣可以驅動所有的用例數據，qtp中提供了datatable。

        但是有數據驅動也要做一個事情就是如何處理錯誤的用戶名和正確的用戶名，如何結合起來呢？

        這里我把datatable看作存放測試用例的地方，里面放入測試數據，還放入測試的預期結果。這樣我的設計已經出現雛形了。

        我把datatable設計為三列

        username  password

        status

        呂x

        xxx       xxxx

        該用戶不存在

        第三列放入最后執行的結果,我設計的是空為成功登陸,如果有信息就用實際運行的結果和這一列對比.好了萬事俱備只欠東風了

        修改腳本如下：

        Dim iStatus

        Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統

        4.0").WebEdit("txtLoginName").Set DataTable("username",

        dtLocalSheet)

        Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登

        錄").set DataTable("password", dtLocalSheet)

        iStatus = DataTable("status",

        dtLocalSheet)

        If   iStatus=""  Then

        Browser("智能變電巡檢儀系統 4.0").Close

        End If

        If   iStatus="該用戶不存在"

        Then

             Reporter.ReportEvent micFail, "登陸", "登陸失敗."

        End If

        Browser("智能變電巡檢儀系統 4.0").Close

        第三步，設置腳本運行過程

        打開 tests-〉settings

        設置RUN TAB頁面下 Datatable iterations中 Run On

        all rows

        這樣就完成了整個腳本的設計

        [url=javascrīpt:;][u][b]工作[/b][/u][/url]

        ，以上通過一個簡單

        [url=javascript:;][u][b]例子[/b][/u][/url]

        吧腳本的設計和軟件的功能結合起來，達成腳本的設計效果。

原文轉自：http://www.anti-gravitydesign.com