QTP检查点之实例操作演示

发布: 2009-10-09 15:28 | 作者: 刘林 | 来源: 领测软件测试网 | 查看: 1020次 | 进入软件测试论坛讨论

' 摘要：
'           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 ====================