QTP檢查點之實例操作演示_QuickTestPro

QTP檢查點之實例操作演示

發表于：2009-10-09來源：作者：點擊數：標簽：qtp QTP 演示實例檢查

' 摘要： ' 1.檢查點的作用：檢查點比較指定屬性的當前值與期望值， ' 以判斷當前的程序（或站點）功能是否正常。 ' 2.此樣例用 qtp 自帶的程序：flight4a.exe ' 功能： QTP 檢查點的各種設置方法實例 ' QTP：10.00.0.0 build 513 ' 作者：劉林（QQ：994165

' 摘要：
'           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.anti-gravitydesign.com

軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >