| ' 摘要： ' 1.檢查點的作用：檢查點比較指定屬性的當前值與期望值， ' 以判斷當前的程序（或站點）功能是否正常。 ' 2.此樣例用qtp自帶的程序：flight4a.exe ' 功能： QTP檢查點的各種設置方法實例 ' QTP：10.00.0.0 build 513 ' 作者：劉林 （QQ：994165) ' 日期：2009-10-09 ' 角本名：checkPoint ' 角本下載地址：php?aid=7496" target="_blank">  checkPoint.zip(399 KB)checkPoint.zip(399 KB)' 輸入用戶名和密碼，并點擊"OK" Dialog("Login").WinEdit("Agent Name:").Set "sdf" Dialog("Login").WinEdit("Password:").SetSecure "4ace9ff1d7b5cb6b84e11e17" Dialog("Login").WinButton("OK").Click ' QTP自帶文本檢查點，方法 -- insert ->Checkpiont -> textCheckpoint ->點擊要檢查的文本->按提示進行相關設置 Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at least 4 characters long.") ' QTP自帶standard檢查點，方法 -- insert ->Checkpiont ->standardCheckpoint->點擊要檢查的點->按提示進行相關設置 Dialog("Login").Dialog("Flight Reservations").WinButton("確定").Check CheckPoint("確定") ' QTP自帶TextArae檢查點，方法 -- insert ->Checkpiont ->TextAraeCheckpoint->框選要檢查的文本->按提示進行相關設置 Dialog("Login").Dialog("Flight Reservations").Check CheckPoint("Flight Reservations") Dialog("Login").Dialog("Flight Reservations").WinButton("確定").Click ' QTP自帶Bitmap檢查點，方法 -- insert ->Checkpiont ->BitmapCheckpoint->點擊要檢查的圖片->按提示進行相關設置 Dialog("Login").Static("Static").Check CheckPoint("Static") Dialog("Login").Static("Static").Check CheckPoint("Static") ' QTP自帶database檢查點，方法 -- insert ->Checkpiont ->databaseCheckpoint->用qtp自帶mdb的進行設置->按提示進行相關設置 DbTable("DbTable").Check CheckPoint("DbTable") ' QTP自帶XMl(文件)檢查點， 方法 -- insert ->Checkpiont ->XML Checkpoint (From resource )->使用QTP的一個測試結果生成的XML文件進行樣式->按提示進行相關設置 XMLFile("XMLCheckpointTest.xml").Check CheckPoint("XMLCheckpointTest.xml") ' ============================== 檢查點成功與否？======================= ' 想知道檢查點是不是通過了，如何做？ ' 1.回顧一下VB知識，根據VB可知，vb對于子過程（sub）是不返回值，而函數(function)是有返回值的， ' 1.1. sub 調用樣式為 ：過程名 參數 ' 1.2. function 調用樣式為：變量 = 函數名( 參數) ' 2. 所以，你可能注意到了，以上的檢查點調用方法都為子過程的方式，那么，想知道檢查點是不是成功， ' 那么請用function 調用方法，因為所有的檢查點方法都有sub 和function 兩種方式。 ' 3.檢查點的tunction 調用返回結果類型都為boolean，檢查點執行成功返回：true ,否則，返回false ' 檢查點成功與否的樣例 ， 注意下行行參數加了括弧. blWinButtonChk =Dialog("Login").WinButton("Help").Check ( CheckPoint("HelpButtonChk") ) If true = blWinButtonChk Then msgbox "檢查點執行成功!" else msgbox "檢查點執行失敗!" End If ' ============================== 檢查點成功與否？end ==================== |
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
